$parser = SQL::Parser->new( 'ANSI', {RaiseError=>0,PrintError=>1} )
$stmt = SQL::Statement->new( 'SELECT 1 AS A FROM DUAL', $parser )