Select Code to Download

#!/usr/bin/perl

...

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

package Peasant;
use strict;
...
    return $int;
}
1;