$ perl -e'print "foo"; die "fark"'
fark at -e line 1.
foo