BEGIN
{
   @main::OINC = @INC;
   unshift @INC, sub {
                         if ( $_[1] eq 'CGI.pm')
                         {
                              @INC = ($_[0]);
                          }
                          else
                          {
                             @INC = ($_[0], @main::OINC);
                          }
                                                                                
                          return undef;
                                                                                
                       };
}
                                                                                
use strict;
use CGI;