Select Code to Download

eval {
    local $SIG{ALRM} = sub { die "TIMEDOUT" };
...
    ...
}
...

$pid = open(PIPE, "$command |") or die $!;
eval {
...
    close(PIPE);  ## needed??
    $? ||= 9;
}