<%@LANGUAGE="PerlScript" CODEPAGE="65001"%>
<%
use Win32::ASP;
use WWW::Kinghost::Painel;

$Response->{charset}="utf-8";

my $painel = WWW::Kinghost::Painel->new();

$painel->logar('email@revenda.com.br','xxxxxxx');

my $idDominio = "00000";
my $senha = "teste";
print $painel->novoPGSql( $idDominio, $senha );
%>