#!/usr/bin/perl

my $prog = shift || 'extract4.pl';
chdir("/home/mjd/TPC/2002/Flags/extract") or die $!;
system("perl $prog");
system("cmp -s SAMPLE-OUTPUT OUT.out");
if ($? == 0) { print "ok\n" } else { print "not ok\n" }