#!/usr/bin/perl

use strict;
use warnings;

use Peasant;

my $henry = Peasant->new(name => "Peasant1", hp => "15");
my $joe = Peasant->new(name => "Peasant2", hp => "15");


$joe->damage($henry->attack);
$henry->damage($joe->attack);