my $x = 1; if ($x) { my $fh; print $fh 23; }; __END__ Can't use an undefined value as a symbol reference at - line 4.