#!/opt/lampp/bin/perl 

use strict;
use warnings;
use CGI;

my $p = new CGI;

my ($name, $email, $sub, $txt) = (
		$p->param('name'),
		$p->param('email'),
		$p->param('subject'),
		$p->param('text'),
	);
$p->header;
print "$name\n$email\n$sub\n$txt\n";
exit(0);