my @columns = qw/author year day month/;
	my $dbh = DBI->connect( "dbi:SQLite:my.db" ) || die "Cannot connect: $DBI::errstr";
	$dbh->do( "CREATE TABLE Data (@columns )" );
	$dbh->disconnect;