#!/usr/bin/perl -w

use strict;
use lib ".";
use Sch;


sub main() {
    my $order_str = "vTCBVALHNUGPF#";
    my $order = Sch::dataSortInit($order_str);

    for my $file (@ARGV) {
	Sch::test_file($file,$order);
    }
}

main();

__END__