my $d = (stat($filename))[0];
  if ( $d < 0 ) {
     print "$filename is nfs file\n";
  }