my $fileno=fileno $fh;
print defined $fileno ? $fileno : 'undef';