sub My_object::new {
        my $O = bless anon_ref(), shift;
        $O->configure_with (@_);
        return ($O);
    }