Select Code to Download

my $base = 'D:\Some\Specific\Folder\Archive\\';
# should be:
...
# this is not needed and can confuse the shell
# pre-pend a '/' when you expand the path
my $new = "$base/$extra_path";

my @files = glob qq($base\\Gridfee0?.7z\\Gridfee?\\invoic_
+b2c_$year$month$day*.txt);