sub loadmod(@){
   shift if(ref($_[0]));
   $@ = 0;
   foreach (@_){
      croak("loadmod() cannot load any packages outside of it's own package area (RPG).  Package Requested: $_") unless($_ =~ m/^RPG::/o);
      eval "require $_; ";
      croak("Unable to locate $_ \@INC includes: ".join(", ", @INC)) if($@);
   }
}