perl -e 'use Fatal qw(open); local @ARGV=qw(nonexistant);  eval{ <> }; print "$@\n";'