Use OF Per SQL Parser.

Dear Sirs/Madams,

I am interested in using SQL::Statement, I would like to know where I
could find some example.

For example I would lile to extract the table names from the following query:
" SELECT a.b, c.col2 FROM b, c WHERE c.col2=? AND b.col1=7 ORDER BY
c.col3 DESC ";

I do the following:
my @my_tables = $stmt->tables(); # Array context

print " ------------------------------------------------------------ ----\n\n";

foreach $::my_tbl (@my_tables)
{
print " my_tbl -> $::my_tbl \n";

}


And I get the following exception:

Can't use an undefined value as an ARRAY reference at
/lib/SQL/Statement.pm line 1982.


Any hints?
Thanks
Drew