#! /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';
Roll Number | Name | Roll Number | Name |
---|---|---|---|
",$x[0]," | ", "",$x[1]," | ", "",$y[0]," | ", "",$y[1]," | ", "