use warnings;
use strict;
use Mukkinese::BattleHorn;

my $bh = Mukkinese::BattleHorn->new ();
$bh->set_cost (1999);
print "The cost of your battlehorn is ", $bh->get_cost (), ".\n";