Use Cwd. It's a standard module.

use Cwd;

my $dir = cwd();
chdir $otherdir;
# do something
chdir $dir;
[download]