#!/usr/bin/perl

#cgi lib, no need to parse form
use strict;
use warnings;
use CGI qw(:standard);

print header();
print start_html("Available Classes");

print"<form action=\"EnrollStudentPL.cgi\" method=\"POST\">";
my $infile ="/home/ajb004/public_html/arabic.txt";
open(InStream, "$infile") or die$!;

while(<InStream>)
{
 s/_/ /g;
 my @word = split(',');
 my $word;
 print"<input type=\"checkbox\" name=\"$word[0]\" value=\"on\"> $word[0]<br>";
print"$word[1] <br>";
print"$word[2] <br>";
print"$word[3] <br>";
}
close (InStream) or die$!;

print"<table border=\"0\">";
print"<tr>";
print"  <td> Enter your University ID number: </td>";
print"  <td><input type=\"text\" size=\"20\" name=\"ID\"></td>";
print"</tr>";
print"</table>";

print"<input type=\"submit\" value=\"Enroll\">";

print end_html();