html_table.pl

#!/usr/bin/perl

use strict;
use warnings;
use HTML::Table;

my $table1 = new HTML::Table( 
    -spacing => 2,
    -padding => 2,
    -border  => 2,
    -head    => ['Model'],
);
$table1->setCell(2, 1, 'Name');
$table1->setCell(2, 2, 'calls');
$table1->setCell(2, 3, 'user');
$table1->setCell(3, 1, 'function100');
$table1->setCell(3, 2, 10000);
$table1->setCell(3, 3, 18.5);
$table1->setCellColSpan(1, 1, 3);
$table1->setRowHead(2);

my $table2 = new HTML::Table( 
    -spacing => 2,
    -padding => 2,
    -border  => 2,
    -head    => ['function'],
);
$table2->setCell(2, 1, 'Name');
$table2->setCell(2, 2, 'calls');
$table2->setCell(2, 3, 'user');
$table2->setCell(3, 1, 'function100');
$table2->setCell(3, 2, 10000);
$table2->setCell(3, 3, 18.5);
$table2->setCellColSpan(1, 1, 3);
$table2->setRowHead(2);

print <<END;
<meta http-equiv="refresh" content="5" />
<table>
    <td>
	$table1
    </td>
    <td>
	$table2
    </td>
</table>
END