open (SENDMAIL, '|/usr/sbin/sendmail -oi -t') or die "Cannot fork to sendmail: $!";
print SENDMAIL <<"EOF";
From:<$email>
To:<$email2>
Errors-To:<$email>
Subject: $subject

$body
	      
EOF
close (SENDMAIL);