Select Code to Download

my $dir  = shift || "client";
my @list = grep -d, glob "*$dir*/*";

$" = $/;
print "@list"