use warnings; ################################################## ###################### Setup ##################### ################################################## #include the list utilites for the shuffle function use List::Util qw(first max maxstr min minstr shuffle sum); #include the Jabber stuff use Net::Jabber; #include the switch statment use Switch; #This is the filename that contains the setup information my $ConfigFile = "setup.ini";