Select Code to Download

use strict;
use warnings;
...
}, '.');
chdir('..');

use strict;
use warnings;
...
        print "Path $p does not exist in the '$dirs[1-$dirselect]->[0]
+' directory\n";
    }
}