#!perl -w
use strict;
use SQL::Translator;
use SQL::Translator::Schema;
use SQL::Translator::Parser::PostgreSQL;
use Data::Dumper;

my $sql = "CREATE TABLE foo (id INT PRIMARY KEY,bar VARCHAR(30)";
my $translator = SQL::Translator->new;
SQL::Translator::Parser::PostgreSQL::parse($translator,$sql);