if (my @statinfo = stat $fd)
      {
         if (($dev == $statinfo[0]) && ($ino == $statinfo[1]) )
         {