Select Code to Download

    foreach $name (@name) {
        last if ($name =~ $filename);
...
            or warn qq{cannot delete $filename: $!+};
        last;
    }

    if ($name[0] !~ $filename) {
        unlink($files . "\\" . $filename)
            or warn qq{cannot delete $filename: $!+};
    }

#!\perl\bin\perl
use strict;
...
}

closedir $filesScan;