print "content-type: text/html \n\n";

@AbilityName = qw(strength dexterity constitution intelligence wisdom charisma );

@Class = qw(Warrior Rogue Priest Wizard Psionisist);

@WeapType = qw(bludgeoning piercing slashing missile);

@WeapMat = qw(bone metal stone wooden);

@NWPlearn = (
"$AbilityName[rand @AbilityName] based",
"$Class[rand @Class] specific"
);

@Mutation = (
"unable to learn $NWPlearn[rand @NWPlearn] non-weapon proficiencies",
"unable to learn $WeapType[rand @WeapType] weapons",
"can not use $WeapMat[rand @WeapMat] weapons"
);

print "Character mutation: $Mutation[rand @Mutation]", "\n";