Select Code to Download

{
   local $tied = 'x';
   ...
}

{
   my $restorer = localiser($tied, 'x');
   ...
}

use Sub::ScopeFinalizer qw( scope_finalizer );

...
   $$var_ref = $_[1];
   return scope_finalizer { $$var_ref = $saved };
}

use strict;
use warnings;
...
   print $tied_lex;          # c
   print "\n";
}

axyzbc
axyzbc