$SIG{CHLD} = sub { wait };

system "date && foo 2>/dev/null";

print "ret: $?\n";
print "err: $!\n";

_END__
Tue Jan 10 17:19:35 CET 2012
ret: -1
err: No child processes