##


.....
$email= $in{'EMAIL'};
$mserv= $in{'ELIST'};
........
&sendmail($mserv, $email, $subjekt, $bodd);
..........

sub  sendmail
{
	my($to, $from, $subject,  $body) = @_;
			
		open (MAIL, "|$sendmail_loc -t -oi") || &err_trap("Can't open $sendmail_loc!\n");
		print MAIL "To: $to\n";
		print MAIL "From: $from\n";
		print MAIL "Subject: $subject\n";
		print MAIL "$body\n";		
		close MAIL;
		
return 1;
}