Practical Perl: Database Modeling with Class::DBI