Select Code to Download

use Cwd;
use File::pushd;
...
# back where we started
print cwd;
print join("\n", glob '*');

use File::pushd;

...
}

# automatically back in original dir

use File::pushd;

...
}

# back in the original directory and the temporary directory is delete
+d