Perl и PostgreSQL

Необходимо написать простенький скрипт на перле, который бы устанавливал соединение с заданной базой в PostgreSQL, получал список таблиц этой базы и на каждую из них запускал бы запрос:

-- Принудительно переиндексируем таблицу
REINDEX TABLE $table FORCE;