Here's a skeleton of what you might want to do ...
die "can't fork: $!" unless defined($kidpid = fork());
if ($kidpid) {
# parent sleeps 60 seconds and then kills child
sleep 60;
kill("TERM" => $kidpid); # send SIGTERM to child
} else {
# child does wget
...
}
print "$kidpid exitting\n";
exit;
update
you might want to do your wget like so ...
...
use LWP::Simple; #so you can do a get.
...
die "can't fork: $!" unless defined($kidpid = fork());
if ($kidpid) {
# parent sleeps 60 seconds and then kills child
sleep 60;
kill("TERM" => $kidpid); # send SIGTERM to child
} else {
my $data = get("http://www.example.com/");
...
}
