#!/usr/local/bin/perl

$base = $ARGV[0];

open(FILES,"ls -alR |") || die ("Can not open : ".$base);

@files = <FILES>;
foreach(@files){
  print "$_";
  chop($_);
  @properties = split(/ +/,$_);
  $wc = @properties;
  print("properties:$wc \n");
  foreach $prop(@properties){
     print "$prop\n";
  }
}
close(PROC);