my ( $mode, $nlink, $uid, $gid, $size, $mtime )
        = ( lstat $file )[ 2 .. 5, 7, 9 ]
            or next;