Select Code to Download

local $SIG{'CHLD'} = sub { print "dead child\n"; $timeout=0 };

local $SIG{'CHLD'} = sub { $timeout=0 };

#!/usr/bin/perl 
use strict;
...
    my $ret = system("sleep 20");
    exit $ret;
}