$ perldoc -f die

##</code><code>##

$ perl -e '$! = 10; die "blah\n"'
blah
$ echo $?
10