open (MAIL, "|$sendmail $recipient") || die "Can't open $mailprog!\n";
   print MAIL "From: Return Address <$return_email>\n";
   print MAIL "Reply-to: $return\n";
   print MAIL "To: $recipient\n";
   
	if ($email2) {
	print MAIL "Cc: $email2\n";
	}
	
   print MAIL "Subject: Test!\n\n";