#!/usr/bin/perl -w
     
    use strict;
    use DBI;
    use CGI::Carp qw(fatalsToBrowser);
    use CGI qw (:standard);
    print "Content-type: text/html\n\n";
    
  my $dbh = DBI->connect("DBI:CSV:f_dir=/cgi-bin/Book1") or die "Can't connect to Book1: $DBI::errstr";
     $dbh->{'csv_tables'}->{'info'} = {'col_names' => ["timestamp", "email", "name", "address", "city", "state", "zip"]};
  my $sth = $dbh->prepare( q{SELECT email FROM info WHERE state = ? }) or die "Can't prepare statement: $DBI::errstr";

  my $rc = $sth->execute ('OH') or die "Can't execute statement: $DBI::errstr";

  print "Query will return $sth->{NUM_OF_FIELDS} fields.\n\n";
  print "Field names: @{ $sth->{NAME} }\n";

  while (my @result = $sth->fetchrow_array()) {
        print "@result\n";
  }
  # check for problems which may have terminated the fetch early
  die $sth->errstr if $sth->err;

  $dbh->disconnect;