my $dir = Cwd::getcwd() . "/" . $0; $dir =~ s#([/\\])[^/\\]+$#/lib#; push(@INC,$dir); require PrivateModule;