perl -e 'use forks; print system("ping -c1 localhost"),"\n$?\n";print $! if ($?==-1)'
PING localhost.localdomain (127.0.0.1) 56(84) bytes of data. 64 bytes from localhost.localdomain (127.0.0.1): icmp_seq=0 ttl=0 time=0.036 ms --- localhost.localdomain ping statistics --- 1 packets transmitted, 1 received, 0% packet loss, time 0ms rtt min/avg/max/mdev = 0.036/0.036/0.036/0.000 ms, pipe 2 -1 -1 No child processes