sub import {
    my $pkg= caller;
    push @{$pkg."::ISA"}, "Exporter";
    while(  @_  ) {
        my $key= shift;
        # (insert validation code here)
        *{$pkg."::".$key}= shift;
    }
}