This is a perl script (uses Class::DBI and Template Toolkit) that creates an object framework for an existing database.