#!/usr/bin/perl
use utf8;
use warnings;
use strict;
use CGI;
use Email::Valid;
print "Content-type: text/html\n\n";
my $p = CGI->new();
my ($name, $mail, $text) = ($p->param('name'),  $p->param('mail'), $p->param('text'));
if ( $name && $mail && $text ) {
	if ( Email::Valid->address($mail) ) {
		#all is set: send to my mail
		open(MAIL, '|/usr/sbin/sendmail -t') or die("Can`t open sendmail: $!\n");
		print MAIL "Content-type: text/plain\n\n";
		print MAIL 'info@difinancial.comdc.net';
		print MAIL "From: $mail\n";
		print MAIL "Name: $name\n";
		print MAIL "Subject: $text";
		close(MAIL);
		print "<h2>Mail send sucessful to 'info\@difinancial.comdc.net.Thanks for query.</h2>";
	}
else {
	print "<p>Mail invalid</p>";
	}
}
else {
	print "<p>Complete all forms.</p>";
}