Checking Details

##

 use CGI;
open (TEST, ">data_file");
 $query = new CGI;

$in_file=$query->param("data");
open (FHtest, "<$in_file");
while () {
print TEST $_;
}
 print $query->header ( );                           
 print <Checking Details
  other stuff
 
end_TEST