if ( my ($dev,$ino) = (stat(FH))[0,1] ) {