Change

$mail{Message} .= "Hello, \n ";
#to 
$mail{Message} = "Hello, \n ";
[download]

if you start by doing .= and there is already data, it will just keep adding to it... using strict and warnings probably would have made you prevent that...

                - Ant
                - Some of my best work - Fish Dinner