open (INPUT, "-Tscore.dat") || die "Cannot open input file.\n";
open (OUTPUT, ">L7AOUT.txt") || die "Cannot open file.\n";
read (INPUT, $studentname, 20);
read (INPUT, $test1, 3);
read (INPUT, $test2, 3);
read (INPUT, $test3, 3);
read (INPUT, $test4, 3);
$studentname3 = substr ($studentname, 0, 3);

print OUTPUT "      CLASS TEST AVERAGES\n\n";
print OUTPUT "                          TEST\n";
print OUTPUT "NAME OF STUDENT         AVERAGE\n\n";

while ($studentname3 ne "END")
{
$avg = ($test1 + $test2 + $test3 + $test4) / 4;
$studnum = $studnum + 1;
$totavg = $totavg + $avg;
printf OUTPUT ("%-24.20s %6.2f", $studentname, $avg);
print OUTPUT "\n\n";
read (INPUT, $name, 20);
read (INPUT, $test1, 3);
read (INPUT, $test2, 3);
read (INPUT, $test3, 3);
read (INPUT, $test4, 3);
$studentname3 = substr ($studentname, 0, 3);
}
$totavg = $totavg / $studnum;
print "\n\n";
printf OUTPUT ("%-25.22s %6.2f", $studnum, $totavg);
print "Program completed Successfully.";
close INPUT;
close OUTPUT;
exit 0;