You should pop over to perl.com and read the article about Class::DBI. It might just be what you are looking for...

--
$you = new YOU;
honk() if $you->love(perl)