I think $fh is undef

$ perl -Mdiagnostics -Mstrict -we ' my $fh = shift; print $fh 1'
Can't use an undefined value as a symbol reference at -e line 1 (#1)
    (F) A value used as either a hard reference or a symbolic referenc
+e must
    be a defined value.  This helps to delurk some insidious errors.

Uncaught exception from user code:
        Can't use an undefined value as a symbol reference at -e line 
+1.
 at -e line 1
[download]