#! /usr/bin/perl

use strict;
use CGI;

our $q = CGI->new();

our $params = $q->Vars;

open DAT, $params->{datafile};

print $q->header,
	$q->start_html(
			-title	=> 'Kenya Regiment Association - Long Roll',
			-meta	=> 'Kenya Regiment Association - Long Roll',
			-style	=> { -src=>'krstyle.css' },
			);

print << 'EOT';
    <div class="alpha-t" >
      <table id="alpha-A">
        <thead>
          <tr>
            <th>Roll Number</th>
            <th>Name</th>
            <th>Roll Number</th>
            <th>Name</th>
          </tr>
        </thead>
        <tbody>
EOT


while (<DAT>) {
	chomp,

	my @x = split(/\t/);

	my $next=<DAT>;chomp $next;
	my @y = split(/\t/,$next);

	print	"<tr>",
		"  <td>",$x[0],"</td>",
		"  <td>",$x[1],"</td>",
		"  <td>",$y[0],"</td>",
		"  <td>",$y[1],"</td>",
		"</tr>\n";
}
close DAT;

print << 'EOT';
        </tbody>
      </table>
    </div>
EOT

print $q->end_html;