#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use FindBin ();

my $dbh = DBI->connect("DBI:CSV:f_dir=".$FindBin::Bin);
my $stmt = "SELECT * FROM Kunden";

my $sth = $dbh->prepare($stmt) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();

while(my @row = $sth->fetchrow_array()){
    print "@row\n";
}

#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use FindBin ();
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use HTML::Table;

my $dbh = DBI->connect("DBI:CSV:f_dir=".$FindBin::Bin);
my $stmt = "SELECT * FROM Kunden";

my $sth = $dbh->prepare($stmt) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();

print header();
print start_html();
my $table2 = new HTML::Table;
$table2->addRow('DHL','K_N','Hellmann');
while(my @row = $sth->fetchrow_array()){
   $table2->addRow(@row);
}
$dbh->disconnect;
$table2->print;