use strict;
use CGI;

$sendmail = '/usr/lib/sendmail';
$file = param('file');

$formdata=<STDIN>;
$formdata=~s/\s+$//;

foreach (split(/&/, $formdata))
 {
	($name, $value)=split(/=/, $_);
	$name=~s/\+/ /g;
	$name=~s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
	$value=~s/\+/ /g;
	$value=~s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;

$formash{$name} = $value;

 }

$receiver = $formash{email};

open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";

        print SENDMAIL "To: $receiver \n";
        print SENDMAIL "From: info\@constellar.com \n";
        print SENDMAIL "Subject: Whitepapers Request \n";
 
close(SENDMAIL);