Simple Database Tests for Perl