The following code:

#!/usr/bin/perl
use SQL::Statement;

my $sqla  = "update abc set a = 's' where a = 't' and amnt > 100";
my $sqlb  = "update abc t set t.a = 's' where t.a = 't' and t.amnt > 1
+00";


my $parser = SQL::Parser->new();

$parser->{RaiseError}=1;
$parser->{PrintError}=1;


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

my $columns =  $stmt->column_defs() ;
printf "Command             %s\n",$stmt->command;
[download]

when run for $sqla works fine:
I get
Command UPDATE
When run with $sqlb, does not work
I get
Junk after table name 'abc'! at /usr/local/lib/perl5/site_perl/5.9.1/SQL/Statement.pm line 88
Junk after table name 'abc'! at /usr/local/lib/perl5/site_perl/5.9.1/SQL/Statement.pm line 88
Q: How could I make the SQL::Parser work with table aliases. Thanks,
D. Arg