use DBI;
use Term::TablePrint qw( print_table );

my $dbh = DBI->connect( ... );
my $sth = $dbh->prepare( "SELECT * FROM $table" );
$sth->execute();
my $a_ref = $sth->fetchall_arrayref();
unshift @$a_ref, $sth->{NAME};

print_table( $a_ref, { choose_columns => 1 );

print_table( $a_ref, { choose_columns => 2 );