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

my $d = new Trogdor(); # create Trodgor
my $e = new Dragon(NAME => 'Smaug'); # create Smaug
my $f = new Dragon(); # create anonymous dragon