perl DBI.pm\'s CRUD testing