#!/usr/bin/perl

use strict;
use warnings;
use SQL::Statement;

my $statement = qq~CREATE TABLE test(
  ID int not null,
  Spalte1 varchar(255),
  Spalte2 int,
  Spalte3 int,
  Spalte4 int,
  Spalte5 blob,
  Spalte6 varchar(33),
  primary key(ID),
)~;

my $parser = SQL::Parser->new();
my $stmt = SQL::Statement->new($statement,$parser);