Listing of atf2xtf2.plx

#!/usr/bin/perl
use warnings; use strict;
use lib '/usr/local/share/cdl/tools';
use CDL::XTF2::File;
use Getopt::Long;

my $check = 1;
my $inline = 0;

GetOptions(
    'check+'=>\$check,
    'inline+'=>\$inline,
    );

my $fname = shift @ARGV;
my @err = `/usr/local/share/cdl/bin/utf8v $fname`;
if ($#err >= 0) {
    print STDERR @err;
} else {
    CDL::XTF2::File::parse($fname);
}

1;