use Sub::ScopeFinalizer qw( scope_finalizer );

sub localiser {
   my $var_ref = \$_[0];
   my $saved = $$var_ref;
   $$var_ref = $_[1];
   return scope_finalizer { $$var_ref = $saved };
}