Select Code to Download

sub increment {
    my $arg_ref = shift;
...
}

print "$num\n";

sub increment {
    my $arg = shift
...
$num = increment($num);

print "$num\n";