Select Code to Download

use POSIX qw( WNOHANG );

...
}

print "Command completed with exit code $?.\n";

my $pid = system(1,'perl -e"sleep(4); exit(5);"');

waitpid($pid, 0);
die $! if $? < 0;
print "Command completed with exit code $?.\n";