#!/usr/bin/perl --
use strict; use warnings;
use Text::Table;
my $tb = Text::Table->new(
 "NAME\n-------------------------",
 "Age\n-------------------------",
 "Department\n-------------------------"
);
$tb->load( [ qw/ Ro Sham Bo / ]);
$tb->load( [ "\nRo", "\nSham", "\nBo" ]);
$tb->load( [ qw/ Ro Sham Bo / ]);
print $tb;
__END__
NAME                      Age                       Department               
------------------------- ------------------------- -------------------------
Ro                        Sham                      Bo                       
                                                                             
Ro                        Sham                      Bo                       
Ro                        Sham                      Bo