Select Code to Download

use File::chdir;

...
# now we're back where we started.  We'll do a listing to show.
print $CWD;
print join("\n", glob '*');

use File::chdir;
my $wd = $CWD;
...
# do some work.

$CWD = $wd; # return to saved dir.