Select Code to Download

#!/usr/bin/perl
use Carp;
...
foreach $key (keys %category) {
  $totalfiles += count_text_files("$config{'basepath'}$key");
}