#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Games::Dice qw(roll);
use HTML::Template;
use Lingua::EN::Inflect qw(PL PL_N PL_V PL_ADJ NO NUM PL_eq PL_N_eq PL_V_eq PL_ADJ_eq A AN PART_PRES ORD NUMWORDS inflect classical def_noun def_verb def_adj def_a def_an);
use B;

=pod
=head1 NAME
F<rg_mutate.pl>
=head1 AUTHOR
Lady_Aleena
=head1 ACKNOWLEDGEMENTS
Perl Monks: Anno, bradenshep, Corion, ikegami, Limbic~Region, Petruchio, shmem, Sidhekin, wfsp, ysth and the rest of the community that has been so kind to me.
=head1 SYNOPSIS
This script randomly generates mutations of player characters.
=cut

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

my %Data;
sub random {
my ($name) = @_; 
my $array = $Data{$name};  
my $pick = $array->[rand @$array];
if (ref($pick) eq 'CODE') {return $pick->();} else {return $pick;}
}