use vars qw($fh);
undef $fh;
open($fh, "> /tmp/data.$$")
    || die "can't open /tmp/data.$$: $!");
print $fh "I am so NOT a lexical filehandle.\n";
close($fh)
    || die "can't close /tmp/data.$$: $!";