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