use strict; use Cwd; use Carp; use ReleaseAction; sub cd_to { chdir($_[0]) or confess("Cannot chdir to '$_[0]': $!"); } sub temp_cd { my $cwd = cwd(); cd_to(shift); return ReleaseAction->new( sub {cd_to($cwd);} ); } # And a simple test system "pwd"; { my $var = temp_cd('/tmp'); system "pwd"; } system "pwd";