Select Code to Download

foreach my $memberName (map { glob } $indir)
{
    if (-d $memberName )
...
        $message = "Can't add file $memberName\n";}
    }
}