package Trogdor;
use strict;
use base qw(Dragon);

sub new {
    my $class = shift;
    $class->SUPER::new(
        NAME  => "Trogdor",
        AGE   => "one year old",
        COLOR => "green",
        @_,                             # allows us to override defaults
        );
}

sub burninate {
    my $self = shift;
    print $self->get_name ." burninates the land!\n";
}
1;