my $parser = SQL::Parser->new( 'ANSI', {RaiseError=>0,PrintError=>1} )
or die "No parser\n";
my $stmt = SQL::Statement->new( "SELECT 1 + 0 AS A FROM DUAL", $parser )
or die "No statement";