Select Code to Download

for (glob "$var1/$var2/$var3/*.ksh") {
    print "$_\n";
}

use File::Spec;
...
...
for(glob $pat) {
    print "$_\n";
}