use Carp;
use Cwd;
use ReleaseAction;


sub cd_to {
  chdir($_[0]) or confess("Cannot chdir to $_[0]: $!");
}


sub tmp_cd {
  my $cwd = cwd();
  cd_to(shift);
  ReleaseAction->new(\&cd_to, $cwd);
}


sub something_interesting {
  my $in_dir = tmp_cd("some_dir");
  # Do something interesting in the new dir


  # I will automagically return to the old dir
  # when I exit the subroutine and $in_dir goes
  # out of scope.
}