the more the merrier... this is an improvement

#!/usr/bin/perl -w

use strict;

my ($t, $str)=(time,"wget -r --level=1 --quiet --span-hosts --follow-t
+ags=img,object,applet,link,script http://www.yahoo.com/");
chdir "/tmp";
`$str` for 1..50;
print "Took ".((time-$t)/50)." seconds\n";
[download]

perl -e'@a=split//," \n/)\"={\"",$b="00002731000223155264555102401";print $a[$_] for split//,$b'