Select Code to Download

sub f {
    length or $_ = "default value" for
        my $var = shift;
    do_something_with($var);
}

sub f {
    my $var = shift;
...
    }
    ...
}