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);


##</code><code>##

open (SENDMAIL, '|/usr/sbin/sendmail -oi -t -OUseErrorsTo=true')

##</code><code>##

Can't create transcript file ./xff5DLdxv22364: Permission denied