#!/usr/bin/perl
use CGI qw(:standard);
chdir("../../quiz");
my $outfil = ">>Results.5";
  flock(OUT, 2);
  seek(OUT, 0, 2);
  print OUT "Class 5";
  close(OUT);