#/usr/bin/perl6

use Mojo::DOM:from<Perl5>;

for dir(test => /:i '.' html $/) -> $file {
	my $fh = $file.open();

	my $contents = $fh.slurp_rest();
	say $contents;
	last;
}

# Outputs
===SORRY!=== Error while compiling /home/cbwood/eBook/Fortune/OEBPS/Text/reBase.pl
Missing block
at /home/cbwood/eBook/Fortune/OEBPS/Text/reBase.pl:11