Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
if ($@ eq "alarm\n") {  # timed out
    kill 9, $pid;
}