my $fileno = fileno($fh);
my $filename = readlink("/dev/fd/" . $fileno);