Select Code to Download

#!/usr/bin/perl -w
# attempt to kill a pid
...
    $pid = $_;
}
kill 'ALRM', $pid;

system "perl ./kill.pl";