Select Code to Download

sub one (*) { my $fh = shift; print $fh "$fh (glob)"; }

open (OUTER,"+>out.txt") or die "$!\n\n";
one (\*OUTER);

sub one (*) { my $fh = shift; print $fh "$fh (glob)"; }

open (OUTER,"+>out.txt") or die "$!\n\n";
one (*OUTER);

sub one(\*) { ... }

sub one(*) { ... }