my ($p, $l, $o, $g, $s) = unpack "A10xA4xA8xA8xA8", `ls -l "$fnm"`;