Magical Exporter Variable

        package Eval;

        sub import {
          my ($package, $name) = @_;
          $name = 'Eval' unless defined $name;
          my %magical_hash;
          tie %magical_hash => Eval;
          my $caller = caller;
          *{$caller . '::' . $name} = \%magical_hash;
        }

        sub TIEHASH {
          my $self;
          bless \$self => 'Eval';
        }

Here's the business end:

        sub FETCH {
          my ($self, $key) = @_;
          $key;                          # Do NOTHING!
        }