#!/usr/athena/bin/perl

require 'lib.pl';

$usage = "Usage: $0 [ -out output-file ] database-file\n";

while ($_ = $ARGV[0], /^-/) {
    shift;
    if (/^-out$/) {
	($out = shift) || die "Missing argument to -out.\n";
	next;
    }
    else {
	die "Unknown option $_.\n$usage";
    }
}

die $usage if (@ARGV != 1);

if ($out) {
    open(STDOUT, ">$out") || die "Opening $out for write: $!.\n";
}

@records = &lopip'read_data($ARGV[0]);

for (@records) {
    print$_, "\n";
}