Select Code to Download

$ sqlite3 bod
SQLite version 3.34.0 2020-12-01 16:14:00
...
2||me@example.com
3|me@example.com|
sqlite>

#!/usr/bin/env perl

...
    print "$crid\n";
    1;
} or do { print $dbh->errstr, "\n"; };

Contents of Person:
1|you@example.com|
...
3|me@example.com|
Head-scratching code:
2