#!/usr/athena/bin/perl

require 'lib.pl';

$usage = "Usage: $0 database-name\n";

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

@records = &lopip'read_data($ARGV[0]);
&lopip'reformat_data(*records) || die "Data check failed.\n";