#!/usr/bin/perl
require 'parse.pl';
&parse_form;
print"Content-type:text/html\n\n"; 
$file = $v{'file'};
if ($file ne "evalresult.txt" && $file ne "regist.txt") {
  print "Invalid file";
  exit;
}  
if ($v{'opt'} eq "list") {
  open(STDIN,$file); 
  @r = <STDIN>;
  close(STDIN);
  print "List data in file : ok<hr>";
  print "<pre>@r</pre>";
} elsif ($v{'opt'} eq "clear") {
  unlink("$file");		
  print "Delete file : ok";
} else {
  print "Please back and select your option";
}