Select Code to Download

    sub make_handle {
        ...
    }

    our $handle = make_handle(); # "... used only once"

sub foo {
    my $foo = shift;
    return undef unless defined $foo;
...
        defined $bar ? $bar : ($bar = shift);
    }
}