You're constantly appending to your message. Change this line: $mail{Message} .= "Hello, \n"; so it assigns rather than appending: $mail{Message} = "Hello, \n";

IMHO, a better way would be to use a here-doc:

$mail{Message} = <<"EOM";
Hello,

NSTouch wants to ...
EOM
# ...
if (sendmail %mail) {
# ...
[download]

If any variables appear in the text of the here-doc, they'll be interpolated.

HTH