Select Code to Download

foreach $mk (@folders) {
   next if $mk eq '.';
   ...
}

foreach $mk (grep !/^\.\z/, @folders) {
   ...
}

foreach $mk (grep { $_ ne '.' } @folders) {
   ...
}