my $inode = (lstat($object))[1];