sub func { my $arg = shift; die 'Invalid Argument' if $arg > 10; return $arg - 2; } eval { $var = func($var) }; # No exception catching. print "$var.\n";