sub new() {
    my $class = shift;          # get class so constructor can be inherited
    my $self = {};
    bless ($self,$class);
    $self->_init( @_ );         # call _init here or in subclass
    return $self;
}

sub _init {
    my $self = shift;
    $self->{NAME}  = shift || undef;
    $self->{AGE}   = undef;
    $self->{COLOR} = undef;
    $self->awaken;
}
sub awaken {
    my $self = shift;
    ($self->get_name eq "nameless") ? print "A " : 0;
    print $self->get_name .", ";
    ($self->get_name ne "nameless") ? print "an " : 0;
    print $self->get_age .", ";
    print $self->get_color ." dragon awakens from his slumber!\n";
}