use strict;
use warnings;
use DBI;
use HTML::TableTiler;    

my @matrix;

my $dbh = DBI->connect( "DBI:mysql:project") or die "Can't connect to Oracle database: $DBI::errstr\n";
my $sth = $dbh->prepare("select * FROM modules");
$sth->execute || $sth->errstr();

while (my @row = $sth->fetchrow_array) {
 push (@matrix, [@row]);
}

$dbh->disconnect;

my $tt = HTML::TableTiler->new();
    
print $tt->tile_table(\@matrix);