while (<$FileHandles{$Dir}{$FileName}>) doesn't work. You must use a simple variable. The fix is:

...
my $fh = $FileHandles{$Dir}{$FileName};

while (<$fh>) {
    print $_;
}
[download]