Select Code to Download

  ## From:
  my(%a, %b);
...
  ## To:
  my %a ;
  use vars qw(%b) ;

tied a
tied b

  my $b = \%a;
  tied(%$b) ;