#!/usr/bin/perl -w

use strict;

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