#!/usr/bin/perl
use strict;
use Trogdor;

#my $d = new Dragon();          # create a nameless dragon
#my $d = new Dragon("Smaug");   # create a dragon named Smaug
my $d = new Trogdor();          # create Trogdor
print $d->get_color;            # confirm Trogdor's color is reset