#!/usr/bin/perl
use XML::LibXML;
use XML::LibXML::SAX::Parser;
use MIS_SAX_Parser;
use MIS_PrintStatus;
use strict;

my $filename = shift @ARGV;
my $cb = MIS_PrintStatus->new();

my $parser = XML::LibXML->new;
my $doc = $parser->parse_file($filename);
my $handler = MIS_SAX_Parser->new(\&MIS_PrintStatus::printit);
my $generator = XML::LibXML::SAX::Parser->new(Handler => $handler);
$generator->generate($doc);