my $a = eof(F);
$a = eof(*F);
my $f;
$a = eof($f);
$a = eof(*$f);
$a = eof;
$a = eof()
