use File::Find qw(finddepth);  #finddepth is a perl reserved word
  die "GIVE DIRECTORY NAME AS AN ARGUMENT\n" unless @ARGV;
  *name = *File::Find::name;
  finddepth \&list, @ARGV;

  sub print2 {
  $LINEMAX=2;  #SETS HOW MANY LINES OF OUTPUT PER C/R
  if(++$line > $LINEMAX) {
  $line=0;
  getc;
  }
  print @_;
  }
  

  if ( !-d )
  {
  print "DIRECTORY NOT FOUND!\n";
  exit(0);
  }
  else
  {
  sub list
  {
  if (!-l && -d _)
  {
  print2;
  $i++;
  print "$name is a DIRECTORY\n";
  }
  else
  {
  $j++;
 print2;
  print "$name\n";  
  }
  }
  $x=$i+$j;
  print "\nDIRECTORY COUNT = $i\n";
  print "FILE COUNT = $j\n";
  print "TOTAL RECORD COUNT = $x\n";
  }