#!/usr/bin/perl -w
     
    use strict;
    use DBI;
    print "Content-type: text/html\n\n";
    $dbh = DBI->connect(qq{DBI:CSV:Book1:csv_sep_char=\\|}, {RaiseError => 1} );
    $dbh->{'csv_tables'}->{'Book1'} = {'file' => 'csv'};
    $dbh->{'col_names' => ["timestamp", "email", "name", "address", "city", "state", "zip"]};
    $sth = $dbh->prepare("SELECT * FROM Book1 WHERE city = ?") or die "Cannot prepare: " . $dbh->errstr();   

    $sth->execute('Orlando');
    while (my @result = $sth->fetchrow_array()) {
        print "@result\n";
    }
    $sth->finish();
    $dbh->disconnect();