Select Code to Download

my @files = glob("*");

use Data::Dumper;
$Data::Dumper::Useqq = 1;
...
for my $file (@files) {
    say Dumper $file;
};

use Encode 'decode';
use Data::Dumper;
...
for my $file (@files) {
    say Dumper $file;
};