#!/usr/bin/perl -w

use strict;
use DBI;

main();

sub main {

    while (1) {
        my ($dbh);

        $dbh = DBI->connect('dbi:Pg:host=localhost;dbname=grow', 'jwb', '', {AutoCommit => 1, RaiseError => 0});

        $dbh->do(q{DELETE FROM grow});
        $dbh->do(q{VACUUM grow});

        $dbh->disconnect();
    }
}

1;