#!/usr/bin/perl -w

# This code available under a BSD 3-clause license.
# http://opensource.org/licenses/BSD-3-Clause

use strict;
use DBI;

my $dbh= DBI->connect("dbi:Pg:host=172.21.2.10;db=lab", "labUser", "labPass", {
		AutoCommit	=> 1,
		RaiseError	=> 1,
	}
);
defined $dbh or die "remote db connect failed";

open(my $fh, ">", "output.txt") or die "open output failed";

my $query = $dbh->prepare(qq[ SELECT phrase FROM phrase ]);
$query->execute();

while (my $row = $query->fetchrow_arrayref) {
	printf $fh "%s\n", $row->[0];
}

close($fh);