# Testausgabe ganze CSV Nr.1
my $sth=$dbh->prepare('SELECT * FROM prospects');
$sth->execute();
while(my @row = $sth->fetchrow_array){
                                      print join('; ',@row)."\n";
                                      }
$sth->finish;

#Textausgabe ganze CSV Nr.2
$sth = $dbh->prepare('SELECT * FROM prospects');
$sth->execute();
while (my $row = $sth->fetchrow_hashref){
                                        print("name = $row->{Name}  contact = $row->{Contact}\n");
                                        }
$sth->finish();