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

my $d = new Dragon(); # create a nameless dragon
my $smaug = new Dragon("Smaug","centuries old");   # create Smaug
my $trogdor = new Trogdor(); # create Trodgor
$trogdor->burninate(); # burninate!