#!/usr/bin/env perl

use strict;
use warnings;

use Bench;

use XML::SAX::Expat;

binmode(STDOUT, ':utf8');
binmode(STDERR, ':utf8');


my $handler = Bench::SAXHandler->new();
my $parser = XML::SAX::Expat->new( Handler => $handler );
$parser->parse_file(shift(@ARGV));