test stub for perl DBI