or download this
ww@GIG:~$ perl -e 'use warnings FATAL => qw(all); eval { open(CMD, "_b
+ad_e xe_ a b c|") or die "open failed: $!\n" }; if($@){ die "ERROR: $
+@" }; print "HOW DID I GET HERE?\n"; while(<CMD>){}'
ERROR: Can't exec "_bad_exe_": No such file or directory at -e line 1.
HOW DID I GET HERE?
ww@GIG:~$