Select Code to Download

$ perl -e 'sub {die}'

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

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

$ spw638035 3
Normal termination
...
$ echo $?
255
$