use Text::Table;

my $tb = Text::Table->new("Planet", "Radius", "Density");
$tb->load(       
           [ "Mercury", 2360, 3.7 ],
           [ "Jupiter", 71030, 1.3 ],
         );
print $tb;

##</code><code>##


|  Planet  |   Radius   |  Density   | <-- Center the title
|----------------------------------- |       
|Mercury   |   2360     |    3.7     | <-- Left Justify
|Jupiter   |   71030    |    1.3     |     also tabbed with separator
--------------------------------------