#!/usr/bin/perl

$| = 1;

use strict;
use warnings;
use CGI;

my $cgi = new CGI;
print $cgi->header;

print $cgi->start_html;

print $cgi->start_table;
while (my $line = <DATA>) {
   chomp $line;
   my (undef, $col1, $col2) = split/=/,$line;
   print $cgi->Tr($cgi->td({-width=>"50%"},[$col1,$col2]));
}
print $cgi->end_table;

print $cgi->end_html;

1;
__DATA__
=aaa=11111
=bbb=222
=ccc=77777
__END__