PERL caused an invalid page flaw at
module <unknown> in 0000:1f8fdff2.
Records:
EAX=01cd0094 CS=015f EIP=1f8fdff2 EFLGS=00010202
EBX=01cd0314 SS=0167 ESP=0153f89c EBP=0153f8bc
ECX=00000000 DS=0167 ESI=01cd0a90 FS=3f77
EDX=8175814c ES=0167 EDI=00000001 GS=0000
Bytes in CS:EIP:

##</code><code>##

    if (param('action') eq "cli_definido")
    {
        #$dt_prosp = "";
        $ger = "";
        
        $cliente = param('n_cliente');
        
        #@t=(localtime)[0..5];
        #$dt_prosp=sprintf "%02u/%02u/%02u %02u:%02u:%02u",$t[3],$t[4]+1,$t[5]+1900,$t[2],$t[1],$t[0];
        
        $dbh = SysUtils::Connect;
        
        $sth2 = $dbh->prepare_cached("SELECT nome FROM usuarios WHERE login='$login'");
        
        $sth2->execute;
        
        while (@data = $sth2->fetchrow_array)
        {
            $nome_gerente = $data[0];
        }
        
        $ger = "<span class=\"texto2\">$nome_gerente</span><input type=\"hidden\" name=\"gerente\" value=\"$login\">";
       
        $sth2->finish;
        
        $neg = "<select name=\"n_negocio\">\n<option value=\"null\" SELECTED>Selecione:</option>\n";
        
        $sth3 = $dbh->prepare_cached("SELECT oportunidade, status FROM oportunidades WHERE razao_social='$cliente' AND status NOT IN ('F','L')");
        
        $sth3->execute;
        
        while (@data = $sth3->fetchrow_array)
        {
            $neg .= "<option value=\"$data[0]\">$data[0]</option>\n";
            $def_status = $data[1];
        }
        
        $neg .= "</select>";
        
        $sth3->finish;
        
        $slct_status = "<select name=\"n_status\">";
        
        $sth4 = $dbh->prepare_cached("SELECT cd_status, status FROM status ORDER BY cd_status");
        
        $sth4->execute;
        
        while (@data = $sth4->fetchrow_array)
        {
            $pos_status = $data[0];
            
            if ($pos_status eq $def_status)
            {
                $slct_status .= "<option value=\"$pos_status\" SELECTED>$data[1]</option>\n";
            }
            else
            {
                $slct_status .="<option value=\"pos_status\">$data[1]</option>\n";
            }
        }
        
        $slct_status .= "</select>\n";
        
        $sth4->finish;
        
        $n_cliente = param('n_cliente');
        
        $cli = "<span class=\"texto2\">$n_cliente</span><input type=\"hidden\" name=\"n_cliente\" value=\"$n_cliente\"><input type=\"hidden\" name=\"action\" value=\"go\">";
        
        $dbh->disconnect;
        
        print "Content-type: text/html\r\n\r\n";
        open (FH,"templates/cadastro_proposta.htm") or die "Cant open body: $!";
        $body = join('',<FH>);
        close (FH);
        eval "\$body = sprintf \"%s\",<<FYNYS;\n $body\nFYNYS\n";
        print $body;
    }