use strict;

use WWW::Mechanize;
use XML::SAX;
use CmdHandler;

if(!@ARGV){
	print "Need to pass a input file name";
}

my $agent = WWW::Mechanize->new;
my $parser = XML::SAX::ParserFactory->parser(
											 Handler => CmdHandler->new($agent)
											 );
$parser->parse_uri($ARGV[0]); 

exit(0);