#!/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 qq{<form action="EnrollStudentPL.cgi" method="POST">};

my $infile = "/home/ajb004/public_html/arabic.txt";
open my $fh, $infile or die $!;

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

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

print qq{<input type="submit" value="Enroll">};

print end_html();