Select Code to Download

use strict;
use warnings;
...
  }
} @ARGV;
print Dumper(\%hARGV);

use strict;
use warnings;
...
$hARGV{files}=\@aFiles if @aFiles; # <== _now_ put the files in the ha
+sh

print Dumper(\%hARGV);

use strict;
use warnings;
...
$hARGV{files}=\@aFiles if @aFiles;

print Dumper(\%hARGV);