use strict;
use warnings;

my $fh = \*STDOUT;

print $fh foo(1), "\n";

sub foo {
  shift;
}