How to get user privs on a table using select

["Gauthier, Dave" <dave.gauthier@xxxxxxxxx>]

Hi:

 

Inside a perl/dbi script, I want to determine which privs (select, insert, update, delete, ...) user 'foo' has on table 'footable'.   There must be metadata tables or a view that has this.