Select Code to Download

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

($mode, $uid, $gid) = ( stat $file )[2,4,5];