Select Code to Download

# Note that this is also just a quick scribble and you may need to ada
+pt this to your needs
# Folders
dir /b /s /a:d | perl -ne "print $_ if $_=~/^c:\\myinputpath\\.*?\\myf
+older\\.*?$/" > filesconfig.txt
# Files
dir /b /s | perl -ne "print $_ if $_=~/^c:\\myinputpath\\.*?\\myfolder
+\\filenames.*?$/" > foldersconfig.txt

'inputdir=s' => \$inputdir,
->
'configfile=s' => \$configfile,

open( my $cfg, "<", $configfile ) or die "Can't open < $configfile: $!
+" ;
my @files = () ;
...
foreach ( @files ) {
    print "$_\n" ;
}