use Cwd qw(cwd);
my $oridir = cwd;
chdir("a/b/c/");
...
# back to original dir
chdir($oridir);