How will your program react if, say, the database connection fails?
Force a failure in your test and see what happens.
use DBI;
{
local *DBI::connect = sub {
return 0;
};
...test for graceful failure here...
}
...test for graceful recovery here...