Select Code to Download

sub Get_MDs
{
    my ($mds) = @_;
...
    }
   return @results;
}

my @mds = Get_MDs($mdlist);

checkdir($_) foreach (@mds)

die "problem: $@" if $@;