foreach ( <*.pm> ) { 
	
		next if /testlib/ ; 
		$_ =~ s/\.pm// ;
		my $val = "testlib::"  .   $_ ;
		eval "require $val" ;

				
	 }