Select Code to Download

opendir(DH, $dir_to_process)
    or die "Cannot open $dir_to_process: $!";

my $dir_to_process = <STDIN>;
chomp $dir_to_process;