open (FILE, "243q1_13.txt") || die "Cannot open $file: $!";

##</code><code>##

print "<H2>Hello $fullname!</H2><P>";
print start_form (-name=>'makequiz', -method=>'POST', -action=>"http://ist221.nsm.tridenttech.edu/perl/gradequiz.cgi");

open FILE, "243q1_13.txt" || die "Cannot open $file: $!";

print "$file has been opened<p>";

while (<FILE>) {        # ** READS EACH LINE OF TEXT FROM FILE
print "Start of while loop<p>";