Select Code to Download

use File::Glob ();
use warnings;
...
foreach $file (@FILES) {
    ();
}

$WantedFiles = '//server/path/WantedFiles*.*';
@FILES = <$WantedFiles>;
foreach $file (@FILES) {
    ();
}