$res .= sprintf(qq(<value%s><![CDATA[%s]]></value>\n),
            $encoding ? qq( encoding="$encoding") : "",
            $encVal);

##</code><code>##

    $res .= sprintf(qq(<![CDATA[%s]]>\n), $encVal);

##</code><code>##

    context_id="%d"

##</code><code>##

    context="%d"

##</code><code>##

    $res .= sprintf(' line="%s"',

##</code><code>##

    $res .= sprintf(' lineno="%s"',

##</code><code>##

    my $bpInfo = getBreakpointInfoString($bkptID, function => $bFunction);

##</code><code>##

    if ($bpInfo) {
        $res .= $bpInfo;
    }

##</code><code>##

set PERL5LIB=C:\path\to\Notepad++\plugins\PerlDebug
set PERLDB_OPTS=RemotePort=127.0.0.1:9000

##</code><code>##

NPP_SAVE
cd "$(CURRENT_DIRECTORY)"
NPP_MENUCOMMAND Plugins\DBGp\Debugger
ENV_SET PERLDB_OPTS=RemotePort=127.0.0.1:9000
ENV_SET PERL5LIB=$(SYS.PERL5LIB);$(NPP_DIRECTORY)\plugins\PerlDebug
INPUTBOX "Command Line Arguments: "
cmd /c start "Perl Debug" cmd /c perl.exe -d "$(FILE_NAME)" $(INPUT)