use strict;
use warnings;
use DBI;

# Konfiguration lesen
open(CFG,'<', 'connect-db') or die "Oops: $!\n";
chomp(my $username = <CFG>);
chomp(my $password = <CFG>);
chomp(my $database = <CFG>);
close(CFG);

# Zusammenbauen der Datasource: DBI/Modul/Datenbank/Host
my $dsn = 'DBI:mysql:'.$database.':localhost';

# Nun der Connect
my $dbh = DBI->connect($dsn, $username, $password,
		                   { RaiseError => 1,
		                     PrintError => 1,
		                     AutoCommit => 1}
		                  ) or die "Oops: $DBI::errstr\n";

my $aref = $dbh->selectall_arrayref("SELECT * FROM fahrzeuge;")
                 or die  $dbh->errstr();

for my $row(@ $aref)
  {
  my($id, $kennz, $sitze) = @{$row};
  printf ("%02d %-10s %d \n", $id, $kennz, $sitze);
  }

$dbh->disconnect();