use HTML::Table; my $table = HTML::Table::make_table(5, qw[some random data to test the table creation thing] ); print $table;