sub import {
  my $dest=pop;
  shift;
  eval <<"EOF";
package $dest;
\@${dest}::ISA=qw(@_);
EOF
}