my $dbh       = DBI->connect('DBI:mysql:DB_NAME', 'DB_USER', 'DB_PASSWORD', {PrintError => 1});
		unless($dbh)
		{
                        print( "Fehler beim Verbindungsaufbau zur Datenbank($DBI::errstr)\n");
                        exit(1);
		}