open COMMAND, "$command |" or die "Can't fork: $!\n"; eval { alarm(ON); $output .= $_ while (); alarm(OFF); }; close COMMAND; #notice no 'or die stuff' here anymore