my $a = new HIT;
my $b = new HIT;

print $a->Name('Corwin, Prince of Amber');
print $b->Name();