#!/usr/bin/perl -wT use CGI qw(:standard escapeHTML); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use Mysql; my $query = new CGI; use strict; my $host = 'mysql3.123.de'; my $database = 'db123'; my $tablename = 'Spieler'; my $user = '123'; my $pw = '345'; my $Benutzername=param('Benutzername'); my $Passwort=param('Passwort'); print "Content-type: text/html\n\n"; print < LoTy Login Check BodyHTML my $connect = Mysql->connect($host, $database, $user, $pw); $connect->selectdb($database); my $myquery = "SELECT ID FROM $tablename WHERE Benutzername = $Benutzername AND Passwort = $Passwort"; my $execute = $connect->query($myquery); my @Ergebnis = $execute->fetchrow(); print"das Ergebnis lautet $Ergebnis[0]"; print end_html();