Use Mock Objects. In particular, take a look at DBD::Mock and Test::MockObject. See Stevan Little's articles at perl.com: Perl Code Kata: Testing Databases and Perl Code Kata: Mocking Objects.