use strict;
    use DBI;
    $dbh = DBI->connect(qq{DBI:CSV:csv_sep_char=\\|})
        or die "Cannot connect: " . $DBI::errstr;
    $sth = $dbh->prepare("SELECT * FROM info WHERE field_3 = Yes")
        or die "Cannot prepare: " . $dbh->errstr();
    $sth->execute() or die "Cannot execute: " . $sth->errstr();
    $sth->finish();
    $dbh->disconnect();