Help for this page

Select Code to Download

Select or download this

sub some_func {
  my $saveDir = new PreserveWD;
  # Do stuff
}

Select or download this

package PreserveWD;

...
*DESTROY = *back;

1;