use strict;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI ':standard';
print "Content-type: text/html\n\n";

use HTML::TokeParser::Simple;

 my $page = 'slices.html';
 
 open FH, $page or die $!;
 my @file = <FH>;
 close FH;
 
 
my $file = join "", @file;

my $p = HTML::TokeParser::Simple->new( \$file );

    while ( my $token = $p->get_token ) {
      next unless $token->is_text;
      my $line = $token->as_is;
      print $line;
     }