#!/usr/bin/perl


use CGI (':standard');
use CGI::Carp ('fatalsToBrowser');

print "Content-Type: text/html\n\n";

use strict;

my $DB    = '--';
my $USER  = '--';
my $PASS  = '--';

my ($dbh, $sth, $sql, $data, $alldata);

use DBI;

$dbh = DBI->connect("DBI:mysql:$DB", $USER, $PASS)
     or die("Kein Verbindung zur Datenbank $DB: $DBI::errstr\n");


print "Kann die Datenbank $DB abfragen.\n";

$sql = "select * from tabbuch";

print "Abfrage: <b>$sql</b>\n\n";

#   $dbh->do("DELETE FROM tabbuch");

$alldata =  $dbh->selectall_arrayref($sql);  

foreach $data ( @$alldata ) {  # Schleife über die Zeilen

        my($buchnr, $aisn, $titel, $untertitel, $beschreibung) = @$data;

    
        print "[$buchnr] '$titel' - $untertitel\n";
        print "    bei Amazon: $aisn\n";
        print "    $beschreibung\n\n";
}

$dbh->disconnect();