(undef, undef, $mode, undef, $uid, $gid) = stat $file;