use strict; use warnings; my $fh = \*STDOUT; print $fh foo(1), "\n"; sub foo { shift; } [download]
In reply to Re: Bareword warning question by runrig in thread Bareword warning question by Akoya