#!d:/Perl/bin/perl.exe
use DBI;
use CGI qw(:standart :cgi);
use CGI::cookie;
use CGI::Carp qw(fatalsToBrowser); 
######################################
print "Content-Type: text/html\n\n";
my $user = param('user');
my $pass = param('pass');
my $chanel = param('chanel');
######################################
my $sql = DBI->connect('DBI:mysql:database=chanel;host=localhost', 'логин', 'пароль') || die $sql::errstr; 
######################################
$result = $sql->prepare("SELECT users FROM chanel WHERE users='$user'");
$result->execute();
$result2 = $sql->prepare("SELECT pass FROM chanel WHERE pass='$pass'");
$result2->execute();
$result3 = $sql->prepare("SELECT chanel FROM chanel WHERE chanel='$chanel'");
$result3->execute();
######################################
my $result_user = $result->fetchrow_hashref();
my $result_pass = $result2->fetchrow_hashref();
my $result_chanel = $result3->fetchrow_hashref();
######################################
$cook = new CGI::Cookie("-name => admin_chanel,
    -value => 666,
    -expires => +3M,
    -domain => 10.33.195.248,
    -path => /cgi-bin
    -secure => 1
");
######################################
$user2=$result_user->{users};
$pass2=$result_pass->{pass};
$chanel2=$result_chanel->{chanel};
if(($user == $user2)&&($pass eq $pass2)&&($chanel eq $chanel2))
{print header(-cookie=>$cook);
}
else
{print "Prover`te dannii";
}
$sql->disconnect();

[Fri Dec 04 14:33:44 2009] [error] [client 10.33.195.248] [Fri Dec  4 14:33:44 2009] login.pl: DBI::db=HASH(0x1bca77c)->disconnect invalidates 3 active statement handles (either destroy statement handles or call finish on them before disconnecting) at D:/wamp/bin/apache/Apache2.2.11/cgi-bin/login.pl line 42., referer: http://10.33.195.248/page.php?3