#!/usr/bin/perl

use CGI;
$data = new CGI;
$email = $data->param('email');


$datafile ="/full_path/data2.txt";

open (FORUM, "<$datafile");
@lines = <FORUM>;
close (FORUM);

$email="eww";
open (FORUM, ">$datafile");
print FORUM ("EMAIL");


print "Content-type: text/html\n\n";
print "$email";