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};