package modes;
my $lP;
my $modCount = 0;
BEGIN{
 $lP = "$ARGV[1]";
}
use lib $lP;
if(opendir(LIB, $lP)){
 foreach my $l (readdir(LIB)){
  unless ($l !~ /^(.*)\.pm$/){
   eval qq~require ~ . $ARGV[1] . qq~::~ . $1 . qq~;~;
   print $@;
  }
 }
}