$message = <<"END_MESSAGE";
To: $email
Reply-to: <$our_email>
From: $us <$our_email>
Subject: $list_name
    
Hello $name,
    
$message
    
$us
END_MESSAGE

open ('MAIL', "|$mail_prog -t -i") or DieNice("Can't open '$mail_prog': $!\n");
print MAIL $message;