Select Code to Download

use File::Find qw(finddepth);  #finddepth is a perl reserved word
  die "GIVE DIRECTORY NAME AS AN ARGUMENT\n" unless @ARGV;
...
  print "FILE COUNT = $j\n";
  print "TOTAL RECORD COUNT = $x\n";
  }

/Perl/bin/newr/hh.txt.bak
...
DIRECTORY COUNT = 3
FILE COUNT = 209
TOTAL RECORD COUNT = 212