Select Code to Download

sub switch_var {
    tie $_[2], to => $_[1];
...
sub STORE { ${$_[0]} = $_[1] }

sub FETCH { ${$_[0]} }