You could try parsing the textual output from Text::Table but if you are the one controlling the program, then you already have the data you want to wrap into an HTML table. From the Text::Table docs:

use Text::Table;
my $tb = Text::Table->new(
        "Planet", "Radius\nkm", "Density\ng/cm^3"
);
$tb->load(
        [ "Mercury", 2360, 3.7 ],
        [ "Venus", 6110, 5.1 ],
        [ "Earth", 6378, 5.52 ],
        [ "Jupiter", 71030, 1.3 ],
);
print $tb;
[download]

If you already have the data in memory, then you can instead try something like so (using my shiny new Spreadsheet::HTML)

use Spreadsheet::HTML qw( generate );

my @data =(
        ["Planet", "Radius\nkm", "Density\ng/cm^3"],
        [ "Mercury", 2360, 3.7 ],
        [ "Venus", 6110, 5.1 ],
        [ "Earth", 6378, 5.52 ],
        [ "Jupiter", 71030, 1.3 ],
);
print generate( data => \@data );
[download]

Spreadsheet::HTML can attempt to load data from a number of file formats but plain old text is not one of them because there are very many different possibilities. It is certainly possible, but likely at the expense of making my API more complex. Hope this helps! :)

P.S. I just released v0.36 which fixes a bug introduced in v0.34 in which the animate feature was breaking. This new release also features the ability to produce Handsontable tables, which are extremely slick Excel-like data grids. Very nice stuff.

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)