if ($foo) { my $old_cwd = cwd; chdir ".."; ... chdir $old_cwd; }