use POSIX qw( WNOHANG );

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

while (1) {
   my $wait = waitpid($pid, WNOHANG);
   die $! if $wait < 0;
   last if $wait > 0;
}

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