#!/usr/local/bin/perl
$SIG{ 'CHLD' } = sub {
        my $pid = wait();
        print "Got $pid\n";
};
system("/bin/ls > /dev/null") == 0 ||
        print "system exited with $?, error is \"$!\"\n";