#!/usr/bin/perl -slw

use strict;
use warnings;
use Text::FromAny;
use HTML::FromText ();

my $any = Text::FromAny->new(file => 'test-basic.doc');
my $text = $any->text;

my $t2h  = HTML::FromText->new({ paras  => 1 });
my $html = $t2h->parse( $text );
print $html;