#!/usr/bin/perl

use MyDBI;

my $dbh = MyDBI->db_logon();   	# defined in MyDBI, obviously
my $sth = $dbh->prepare( 'SELECT * FROM foo ');