Unnamed

$filename = "index.html";
open( FILE, "< $filename" ) or die "Can't open $filename : $!";

    while(defined(my $document = <FILE> )) {
push @documen3, $document;
}
#print @documen3;

 $h = new HTML::TreeBuilder;

$h->ignore_text;
$h->parse(@documen3);
$h->implicit_tags(@documen3);
print $h->as_HTML;
    undef @documen3;
close FILE;