From the Text::Table documentation:

NAME
   Text::Table - Organize Data in Tables

SYNOPSIS
       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;

   This prints a table from the given title and data like this:

     Planet  Radius Density
             km     g/cm^3
     Mercury  2360  3.7
     Venus    6110  5.1
     Earth    6378  5.52
     Jupiter 71030  1.3

   Note that two-line titles work, and that the planet names are aligned
   differently than the numbers.