$ perl -e '$sub = sub {die}; $sub->();'
Died at -e line 1.
$ echo $?
255
$