#Eingabefelder zum herstellen der Verbindungen
if ($dbh ne "")
{
}
else{
print        $html->startform(-method=>'POST',
                             -action=>'datenbank_verwaltung.pl'),
            $html->div({align=>'center'},'Servername/IP-Adresse: '),
            $html->textfield(-name=>'server'),
            $html->div({align=>'center'},'Datenbank: '),
            $html->textfield(-name=>'datenbank'),
            $html->div({align=>'center'},'Nutzername:  '),
            $html->textfield(-name=>'name'),
            $html->div({align=>'center'},'Passwort:  '),
            $html->password_field(-name=>'passwort');
            $html->end_form(),
            print "<br><br>";

#Übergabe der eingaben an "richtige" Variablen
my $server = param(server);
my $nutzer = param(name);
my $passwort = param(passwort);
my $datenbank = param(datenbank);

#Zusammensetzen der Serververbindung
my $source = "DBI:mysql:$datenbank:$server";    
print $html->submit(-name=>'Login');

        $dbh = DBI -> connect($source,$nutzer,$passwort);
} 

#Eingabefelder zum herstellen der Verbindungen
if ($html->param('server') and $html->param('name') )
{
    #Übergabe der eingaben an "richtige" Variablen
    my $server = $html->param('server');
    my $nutzer = $html->param('name');
    my $passwort = $html->param('passwort');
    my $datenbank = $html->param('datenbank');

    $dbh = DBI -> connect($source,$nutzer,$passwort);
    #    mach was mit $dbh
}
else{
    print $html->startform(-method=>'POST',
                             -action=>'datenbank_verwaltung.pl'),
            $html->div({align=>'center'},'Servername/IP-Adresse: '),
            $html->textfield(-name=>'server'),
            $html->div({align=>'center'},'Datenbank: '),
            $html->textfield(-name=>'datenbank'),
            $html->div({align=>'center'},'Nutzername:  '),
            $html->textfield(-name=>'name'),
            $html->div({align=>'center'},'Passwort:  '),
            $html->password_field(-name=>'passwort'),
             "<br><br>";

    #Übergabe der eingaben an "richtige" Variablen

    #Zusammensetzen der Serververbindung
    my $source = "DBI:mysql:$datenbank:$server";    
    print $html->submit(-name=>'Login'),
            $html->end_form();

}