> perl -wle '
$SIG{CHLD}="IGNORE";
$! = 33;
print system("ls -d .");
print -+-$!;
print $!;
print -+-$!'
.
-1
33
No child processes
10