sub import {
    my( $us, $ref )= @_;
    $$ref= $us   if  ref($ref);
}