Not sure what you are trying to accomplish with the line

$dir=File::Spec->catdir("\'$dir\'");
[download]

I suspect it was an attempt at a work around, but it's not helping you. Get rid of it.

I suspect your main problem is in the line

for my $dir ( <@{ $HoA{$server} }> ) {
[download]

The angle brackets will perform one level of double quote interpolation on anything that is not a file handle. (It thinks it's a glob.)

Lessee...

From perlop - I/O operators

If what's within the angle brackets is neither a filehandle nor a simple scalar variable containing a filehandle name, typeglob, or typeglob reference, it is interpreted as a filename pattern to be globbed, and either a list of filenames or the next filename in the list is returned, depending on context. ... One level of double-quote interpretation is done first,...