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.