#!/usr/bin/perl -w
use strict;

use FlipDB;

my $file = shift;

my $pdb = new FlipDB;

$pdb->Load($file);

foreach (@{$pdb->{records}}) {
	print "\"$_->{word1}\" \"$_->{word2}\" $_->{known}\n";
}

