#! /usr/bin/perl

use DBI();

MAIN: {
	my ($dbname) = 'template1';
	my ($username) = 'postgres';
	my ($password) = 'whatever';
	my ($dbh) = DBI->connect('dbi:Pg:host=localhost;dbname=' . $dbname, $username, $password, { 'RaiseError' => 0, 'PrintError' => 0 });
	unless ($dbh) {
		die("Failed to connect to database:$DBI::errstr");
	}
	unless ($dbh->do("VACUUM")) {
		die("Failed to VACUUM:$DBI::errstr");
	}
}