use XML::Parser;

my $parser = new XML::Parser(Style=>'Stream');
$parser->parsefile($ARGV[0]);

sub StartDocument {
	print qq(StartDocument\n);
}
sub EndDocument {
	print qq(EndDocument\n);
}

sub StartTag {
	print qq(StartTag $_[1]\n);
}
sub EndTag {
	print qq(EndTag $_[1]\n);
}

sub Text {
	print qq($_\n);
}