[sqlite] retreving the column names for a query (PERL)

[Jim Dodgen]

for a query like

select * from a join b on a.x = b.z
anyone know how to get all the column names of the fields that would be 
returned from the query?

I am using the DBD::SQLite PERL module

Thanks

Jim