my $sth = $dbh->prepare(q~
insert into frame