Index: /trunk/Bookmarks.pm
===================================================================
--- /trunk/Bookmarks.pm	(revision 46)
+++ /trunk/Bookmarks.pm	(revision 47)
@@ -31,4 +31,14 @@
         }
     }
+}
+
+sub create_tables {
+    my $self = shift;
+    require File::Slurp;
+    my $table_definitions = File::Slurp::read_file('bookmarks.sql');
+    $self->dbh->{sqlite_allow_multiple_statements} = 1;
+    $self->dbh->do($table_definitions);
+    $self->dbh->{sqlite_allow_multiple_statements} = 0;
+    return $self;
 }
 
Index: /trunk/bkmk
===================================================================
--- /trunk/bkmk	(revision 46)
+++ /trunk/bkmk	(revision 47)
@@ -20,4 +20,7 @@
 
 my %action_for = (
+    init => sub {
+        $bookmarks->create_tables;
+    },
     get => sub {
         my $identifier = shift;