package Import;

sub import {
  shift; # I don't care about my package.
  my $to_call = shift;
  my $call_from = caller;
  eval qq(
    package $call_from; # So the import goes into the right package.
    $to_call\->import(\@_);
  );
}

1;