Select Code to Download

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

foreach($y=0)
{
...
unless( $y++ % 80 ) 
{
<STDIN>;