open FH, "<foobar" or die;
my @stats = stat FH;
print "First inode ", $stats[1], "\n";
{
   open FH, "<foo" or die;
   my @stats = stat FH;
    print "Second inode ", $stats[1], "\n";
}
@stats = stat FH;
print "First inode ", $stats[1], "\n"; # FH has been clobbered.

__END__

....
First inode 683751
Second inode 684162
First inode 684162