$ perl -e ' print "foo\n"; die;'
foo
Died at -e line 1.

$ perl -e ' print "foo\n"; exit;'
foo

$