Carl Mummert 15 Jul 1999 21:34:51 -0000
--cut #!/usr/bin/perl foreach (@ARGV) { printf "%#o %s \n", (stat($_))[2] & 0x1ff, $_; } --cut
CaRL