Select Code to Download

#!/usr/bin/perl
use warnings;
...
    run_do($dbh, $id, 'Joe');
    run_select($dbh);
}

1 John
1 John
...
LINE 1: SELECT * FROM customers
                      ^ at ./1.pl line 18.
DBD::Pg::st fetchrow_array failed: no statement executing at ./1.pl li
+ne 19.

    $dbh->do(join "",
             'INSERT INTO customers(id,name) VALUES(',
             $dbh->quote($id), ', ',
             $dbh->quote($name),
             ')');