testleak.p6

use Gumbo::Parser; # replace with HTML::Parser::XML
use XML;

my $parser = Gumbo::Parser.new;

my $html = qqx{wget -o /dev/null -O - https://www.fimfiction.net/bookshelf/149291/};

say "Getting/parsing a wegpage with a quite huge xml tree, prepare yourself some coffee if you use H:P:X";
say "webpage is "~$html.chars~" size.";
my $xml = $parser.parse($html);

$xml.save('somelargetree.txt');

say "Parsing done : looking for something, forever";

for 1..1000 {
        my @characters = $xml.lookfor(:TAG<a>, :class<character_icon>); #shortcut for elements method
        sleep 0.5;
}