my ($mode,$uid,$size,$modtime) = (stat $file)[2,4,7,9];