qwurx [shmem] ~ > perl -p -e 'BEGIN{$SIG{__WARN__}=sub{die@_}}' nonexistent
Can't open nonexistent: No such file or directory.
qwurx [shmem] ~ > echo $?
2