Select Code to Download

package Redirect_Hash;
sub TIEHASH {
...
  my ($prefix, $hash) = @$self;
  $hash->{$key};
}

tie %h => Redirect_Hash;

...
$h{name} = 'Fred';
print $h{name}, "\n"; # still prints 'Fred'
print $h{redirect_name}, "\n"; # still prints 'boondoggle'