#!/usr/bin/env perl

use strict;
use warnings;

use File::Spec;

use HTML::Parser::Simple::Reporter;

# ---------------------------------

my($p) = HTML::Parser::Simple::Reporter -> new;

print "$_\n" for @{$p -> traverse_file(File::Spec -> catfile('data' ,'s.1.html') )};