Select Code to Download

alarm 10;        # send me a signal in 10 seconds
# do some code which may not complete
alarm 0;        # if we get here in time, disable the alarm

eval {
    local $SIG{ALRM} = sub { die "child process took too long to compl
+ete" };
    alarm 10;
...
} else {
    # send the parent the information ?
}