Re^2: Perl script does not work on other directories?

I added the following right after opndir line:

chdir DH, "$dir" or die "Couldn't change to that directory $dir: $!";

and it works correctly now.Thanks for help.

Comment on Re^2: Perl script does not work on other directories? Download Code