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($@);
   }
}
##</code><code>##

Unable to locate RPG::Item::Weapon::Spear @INC includes: E:/Perl/lib, E:/Perl/site/lib, . at test1.pl line 5