Help for this page
my $filename; if (defined(my $fileno = fileno($fh))) { ... $filename = undef unless -e $filename; } }