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

##</code><code>##

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