#!/usr/bin/perl

use DBI;

system("clear");

# Datenbank

$datenbank = "info";

# Datenbankhost

$datenbankhost = "localhost";

# Datenbankusername

$datenbankuser = "root";

# Datenbankpasswort

$datenbankpw = "";

$dbh = DBI->connect("DBI:mysql:$datenbank:$datenbankhost","$datenbankuser","$datenbankpw")

|| scripterror ("Fehler bei der Datenbankverbindung aufgetreten.");

my $sql = qq{select * from hasbergen};

my $sth = $dbh->prepare( $sql );

$sth->execute();

while(@ergebnis=$sth->fetchrow_array)

{
   print $ergebnis[0]." ".$ergebnis[1]." ".$ergebnis[2]." ".$ergebnis[3]." \n";
}

print " \n";

$sth->finish();

$dbh->disconnect();