package PersonUpdate; use base 'MyDBUpdate'; __PACKAGE__->table('person'); __PACKAGE__->columns(All => qw/ first_name last_name street city state zip /); 1;