The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
create table person (
  person_id INTEGER PRIMARY KEY AUTOINCREMENT,
  'name' varchar(20) not null,
  'age' integer,
  weight double(11,2),
  iq tinyint default '0',
  description text
);

create unique index u_name on person (name);

create table pet (
  "pet_id" int,
  "person_id" int references person (person_id),
  "name" varchar(30),
  "age" int,
  check ( age < 100 ),
  primary key (pet_id, person_id)
);

create trigger pet_trig after insert on pet 
  begin
    update pet set name=name;
  end
;

create view person_pet as
  select pr.person_id, pr.name as person_name, pt.name as pet_name
  from   person pr, pet pt
  where  person.person_id=pet.pet_id
;