sub new {
    my( $class, %options) = @_;

    # rename from "tobechangedname" to "newname"
    my $optval = delete $options{ tobechangedname };
    $options{ newname } = $optval;

    bless \%options => $class;
}