Hi jonnyfolk

It works ok for me. What do you mean by 'not working properly'?

Do you get any output, error messages? Is there any text in slices.html?

You could add some more error checking:

my $p = HTML::TokeParser::Simple->new( \$file )
  or die "couldn't parse html: $!";
[download]

That may help reveal any snags.

Update
It does run all the text into one line because your not printing any tags. Is that what you mean by 'not working properly'?

Update 2
You've set warningsToBrowser but you don't have use warnings; turned on (add that line after use strict;). As an aside, if any warnings are returned they are in the html. They won't be displayed in the browser any warnings will be in the error log.

Update 3
Corrected where the warnings go.