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