A "Simple Database Abstraction", available from ComprehensivePerlArchiveNetwork. It maps each database table to a class, and provides accessors for the column names. It supports some simple relationships.