#!C:\perl\bin\perl.exe

use strict;
use CGI;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use HTML::Table;
my $linecount=0;

open(FILE,"details.txt")or die("Sorry can't open $!\n"); 
my $cgi=CGI->new;
print $cgi->header;
print $cgi->start_html("Test display page");
print $cgi->h3("Testing the output format");

my $table = new HTML::Table(-rows=>40,
                            -cols=>3,
                            -align=>'left',
                            -border=>1,

                            -width=>'30%',
                            -padding=>5,
                            -head=> ['col1','col2','col3']);

OUTER: while(my $line = <FILE>)
{
chomp($line);
my @field=split(/\s+/,$line);

for(my $j=1;$j<=24;$j++)
   {
     $table->setCell($linecount, $j, $field[($j-1)]);   
   }

 $linecount++;
}

close(FILE);

print $table->getTable;
print $cgi->end_html;