##
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