for (1 .. 10000) {
    my $p = 'XML::LibXML'->new;
    my $d = $p->parse_file('example.xml');
    my $n = $d->findnodes('/');
}