Select Code to Download

for my $source ( keys %dir )
{
...
  $relativeName );
(...compare and backup if new or newer ...)
}

my $source = "N:/TEMP";
my $destination = $dir{$source};
...

my $source = "N:/TEMP_2";
etc.