#  cat p.pl ; perl p.pl

use strict;

open FH , '<' , $0 or die "open failed: $!";

while( FH )
{
  last;
}

close FH or die "close failed: $!";

__END__

Bareword "FH" not allowed while "strict subs" in use at p.pl line 11.
Execution of p.pl aborted due to compilation errors