Select Code to Download

sub func {
    my $arg = shift;
...

eval { $var = func($var) }; # No exception catching.
print "$var.\n";

sub func {
    my $arg = shift;
...
my $var = 10;
($var, my $succ) = func($var);
print "$var.\n";

sub func {
    my $arg = shift;
    return $arg . 'E0' if $arg > 10;
    return $arg - 2;
}