sub import {

  my $pkg = shift;
  my $callpkg = caller(0);
  %{"$callpkg\::"} = (%{"$callpkg\::"}, %{"$pkg\::"});

}