Select Code to Download

use strict;
use warnings;
...
    },
    glob ('Z:\Linux\site')
);

use strict;
use warnings;
...
        eval { path($file)->copy($destination) };
        print STDERR $@ ? "$@" : "$file, $pattern\n";
}