ww@GIG:~$ perl -e 'use warnings FATAL => qw(all); eval { open(CMD, "_bad_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:~$