my $ProgramDir;
BEGIN{
   ($ProgramDir) = ( $0=~m|(.+)\/.+$|, $0=~m|(.+)\\.+$| ,".");
}
use lib ( $ProgramDir, ); # Current Program's Dir
use MyModule ("$ProgramDir/MyModule.db3");