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);