$ perl -e 'sub {die}'

##</code><code>##

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

##</code><code>##

use strict;
use warnings;

sub toDieFor
{
    my $v = shift;
    die qq{Died with $v};
}

my $value = shift;
toDieFor($value) if $value > 10;
print qq{Normal termination\n};

##</code><code>##

$ spw638035 3
Normal termination
$ spw638035 33
Died with 33 at spw638035 line 9.
$ echo $?
255
$