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

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

##</code><code>##

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

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

##</code><code>##

sub one(\*) { ... }

##</code><code>##

sub one(*) { ... }