Select Code to Download

use strict;
use warnings;
...
eval { @x = File::Spec->no_upwards(readdir(DIR)); };
closedir(DIR);
print "@x\n";