sub AUTOLOAD {
    #warn pp "$AUTOLOAD $OBJ=>",\@_;
    (my $meth = $AUTOLOAD) =~ s/^.*://;
    if (my $c_ref = $OBJ->can($meth)) {
        unshift @_,$OBJ;
        goto &$c_ref;
    }
}