my $filename;
if (defined(my $fileno = fileno($fh))) {
   if ($^O eq 'linux') {
      my $procpath = "/proc/self/fd/$fileno";
      $filename = readlink($procpath);
      $filename = undef unless -e $filename;
   }
}