#!/usr/bin/env perl
use strict;
use warnings;

use Bench;

use Parse::MediaWikiDump;

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


my $file = shift(@ARGV) or die "must specify file";
my $fh;

open($fh, $file) or die "could not open $file: $!";

my $articles = Parse::MediaWikiDump::Pages->new($fh);

while(defined(my $one = $articles->next)) {
	Bench::Article($one->title, ${$one->text});
}