#!/usr/bin/perl

$n = shift || 1000;

use DBI;

$dbh = DBI->connect("dbi:Pg:dbname=test");

$dbh->do("DELETE FROM food");

$sth = $dbh->prepare("INSERT INTO food values ('asdfgfaddaasdgadsfdasf', 1234, 1234)");

for $i (1..$n) { $sth->execute }