<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/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__
</pre></body></html>