#!/usr/bin/perl -w

use strict;
use cgi qw (:standard);

use DBI;


my $adresse;
my $geburtsdatum;
my $telefon;
#my $rc;

my $dbh = DBI->connect ("DBI:CSV:ESA2= F:/anwendung/Apache/cgi-bin") or die "Konnte DB nicht öffnen!$!\n";

my $sth = $dbh->prepare ("SELECT * FROM ESA2") or die "Ausfuehren nicht moeglich:$!";

$sth->execute();

#while ( ($adresse, $geburtsdatum, $telefon) = $sth->fetchrow_array )
#{
#}
$sth -> finish();
$dbh ->disconnect;