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