use strict;
use DBI;
main();
exit;
sub main {
    my $dbh = DBI->connect("dbi:Pg:", undef,undef, {RaiseError=>1,PrintError=>0});
    my $table = "t";
    $dbh->do("drop table $table") or die "die 1 - $!\n";
    $dbh->do("create table t(c text)")      or die "die 2 - $!\n";
    my $routput = vacuum_analyze($dbh, $table);
    print "-- verbose output:\n";
    print "-"x70, "\n";
    print $$routput;
    print "-"x70, "\n";
}
sub vacuum_analyze {
    my ($dbh, $table) = @_;
    my $output;
    open OLDERR, ">&STDERR";
    close STDERR;
    open STDERR, ">", \$output    or die "error opening a stderr (heh)\n";
    $dbh->do("vacuum verbose analyze $table");
    close STDERR;
    open STDERR, ">&OLDERR";
    \$output;
}

##</code><code>##

2012.12.18 12:47:31 aardvark@bulldog:~/pg_stuff/pg_sql/pgsql.HEAD [0]
$ perl vacuum.pl
-- verbose output:
----------------------------------------------------------------------
INFO:  vacuuming "public.t"
INFO:  "t": found 0 removable, 0 nonremovable row versions in 0 out of 0 pages
DETAIL:  0 dead row versions cannot be removed yet.
There were 0 unused item pointers.
0 pages are entirely empty.
CPU 0.00s/0.00u sec elapsed 0.00 sec.
INFO:  vacuuming "pg_toast.pg_toast_28335219"
INFO:  index "pg_toast_28335219_index" now contains 0 row versions in 1 pages
DETAIL:  0 index row versions were removed.
0 index pages have been deleted, 0 are currently reusable.
CPU 0.00s/0.00u sec elapsed 0.00 sec.
INFO:  "pg_toast_28335219": found 0 removable, 0 nonremovable row versions in 0 out of 0 pages
DETAIL:  0 dead row versions cannot be removed yet.
There were 0 unused item pointers.
0 pages are entirely empty.
CPU 0.00s/0.00u sec elapsed 0.00 sec.
INFO:  analyzing "public.t"
INFO:  "t": scanned 0 of 0 pages, containing 0 live rows and 0 dead rows; 0 rows in sample, 0 estimated total rows
----------------------------------------------------------------------