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