#!/usr/bin/perl
use Digest::MD5 qw(md5_hex);
$i = 'http://del.icio.us/';
foreach (1..50){
$i = 'http://del.icio.us/url/' . md5_hex($i);
system("firefox $i");
}
#!/usr/bin/perl
use Digest::MD5 qw(md5_hex);
$i = 'http://del.icio.us/';
foreach (1..50){
$i = 'http://del.icio.us/url/' . md5_hex($i);
system("firefox $i");
}