# using DBIx::Class:  
$schema->resultset('Person')->new({FirstName=>'Joe'})->insert();   

# using Class::DBI:
DB::Person->insert({FirstName=>'Joe'});

##</code><code>##

package DB::Person;
use base 'DBIx::Class';
__PACKAGE__->load_components(qw/PK::Auto Core/);
__PACKAGE__->table('T_PERSON');
__PACKAGE__->add_columns(qw[PersonId FirstName]);
__PACKAGE__->set_primary_key('PersonId');

package DB;
use base 'DBIx::Class::Schema';
__PACKAGE__->load_classes(qw[Person]);