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

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