#!/usr/bin/perl
use strict;
use warnings;
use Text::Table;

my $tb = Text::Table->new(
    \'| ',
    {
        title => 'Planet',
        align => 'center', 
        align_title => 'center' 
    },
    \" | ",
    {
        title => 'Radius',
        align => 'center', 
        align_title => 'center'
    },
    \" | ", 
    {
        title => 'Density',
        align => 'center', 
        align_title => 'center'
    },
    \' |',
);

$tb->warnings('on');
$tb->load(
        [ "Mercury", 2360, "3.7" ],
        [ "Jupiter", 71030, "1.3" ],
);

print $tb->title();
print $tb->rule('-','|');
print $tb->body(0);
print $tb->body(1);
print $tb->body_rule('-','-');



__END__
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\perlp\Text_Table>perl try.pl
| Planet  | Radius | Density |
|---------|--------|---------|
| Mercury |  2360  |   3.7   |
| Jupiter |  71030 |   1.3   |
------------------------------

C:\perlp\Text_Table>