#!/usr/bin/env perl

use strict;
use warnings;

use DBI;
my $dbh = DBI->connect("dbi:SQLite:dbname=bod");

print "Contents of Person:\n";
eval {
    print join('|', @$_), "\n" for $dbh->selectall_array('select * from Person');
    1;
} or do { print $dbh->errstr, "\n"; };


print "Head-scratching code:\n";
eval {
    my %data = (email => 'me@example.com');
    my $crid = $dbh->selectrow_array("SELECT idPerson FROM Person WHERE email = ? OR altEmail = ?", undef, $data{'email'
}, $data{'email'});
    print "$crid\n";
    1;
} or do { print $dbh->errstr, "\n"; };