$dbh->do( q{
        CREATE TABLE foo (
            id integer not null primary key,
            name varchar(20)
        )
    });
    $dbh->do( "INSERT INTO foo ( name ) VALUES ( 'bar' )" );
    print "ID of record: ", $dbh->func( 'last_insert_rowid' ), "\n";