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