else { print "ok 7\n"; ($DBI::err == 208) and print "ok 8\n" or print "not ok 8\n"; # print STDERR ($DBI::err, ":\n", $sth->errstr); } #### perl -Mblib t/main.t