--cut
#!/usr/bin/perl

foreach (@ARGV)
{
  printf "%#o %s \n", (stat($_))[2] & 0x1ff, $_;
}
--cut


CaRL

Reply via email to