#!/usr/bin/perl -w

use strict;
use warnings;
use HTML::FormatText;
use HTML::Parse;

my $html;
my $formatter;


$html = HTML::Parse::parse_htmlfile("beispiel.html");
# alternativ ginge auch... $html = HTML::Parse::parse_html($text);
# ...um den HTML-Text aus einer Variablen zu holen

$formatter = HTML::FormatText->new();

print $formatter->format($html);