I get this warning in version 5.6.1. Hey, it's a bug. Oh, well. It's hard to parse perl. Upgrade or deal with it. That's the way it goes sometimes :-)

use strict;
use warnings;

my $fh = \*STDOUT;

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

sub foo {
  shift;
}
[download]