Select Code to Download

use strict;
opendir(DIR,".") or die("Can't open directory '$!'");
...
    print "$file\n";
}
closedir(DIR);