use Mapps::Auth ;
  $auth = new Mapps::Auth->auth($uname, $passwd);
  ...

##</code><code>##

  foreach my $INC_i ( @INC ) {
    print "$INC_i\n" ;
  }

##</code><code>##

C:/Perl/lib
C:/Perl/site/lib
.