#!/usr/bin/perl -w
use strict;
my ($t, $a);

# why do all the hard work yourself?

chdir "/tmp";
$t = time;
$a=`wget -r --level=1 --span-hosts --follow-tags=img,object,applet,link,script http://www.yahoo.com/`;
print "Took ".(time-$t)." seconds\n";