( $error, $to ) = emailCheck( $to, undef );
die "Invalid email in database $to\n" if defined $error;
$body =~ s/^\.$/../gm;
+ $ENV{'PATH'} = '/usr/sbin';
open SENDMAIL, "|$sendmail -f'$from' '$to'" or die 'Can not send mail';
print SENDMAIL "From: $from\n".
"To: $to\n".