#!perl

use strict;
use warnings;

BEGIN {
   my $dir = "C:/Perl/site/lib/";
   my $r;
   for (<$dir*.pm>) {
      /([^\/]+)$/ && ($r = $1) or next;
      eval { rquire $_ } unless ($r and $INC{$r});
   }
}

use Data::Dumper;

print Dumper \%INC;