use strict;
    use DBI;
    use CGI::Carp qw(fatalsToBrowser);
    use CGI qw (:standard);
    print "Content-type: text/html\n\n";
    
     my $dbh = DBI->connect(qq{DBI:CSV:f_dir=/usr/local/etc/httpd/cgi-bin/}, {RaiseError => 1} );

     $dbh->{'sep_char' => "|", 'col_names' => ["timestamp", "email", "name", "address", "city", "state", "zip"]};
     my $sth = $dbh->prepare( q{SELECT * FROM export_list WHERE state = ? });

     my $rc = $sth->execute ('OH');

     print "Query will return $sth->{NUM_OF_FIELDS} fields.\n\n";

     while (my @result = $sth->fetchrow_array()) {
        print "@result\n";
        }
     
     die $sth->errstr if $sth->err;

     $dbh->disconnect;