Select Code to Download

# filter any unwholesome file names 
my @reason;
...
    warn $_ for @reason;
    next;
};

$file =~ /^\w[-_\w]+\.\w+$/
    or push @reason, '... it doesn't look like a sane filename';