#!/usr/bin/perl
#


use Recipe;
use strict;


my $r = Recipe->new();
$r->connect() or die $r->errstr();

my $res = $r->get_DBI->prepare("select name from recipe;");
$res->execute();
while((my @c = $res->fetchrow_array())) {
	print "$c[0]\n";
}


$r->disconnect();