use Net::SMTP;

$smtpserver = "mail.charity.org";

$hellostring = "region1.charity.org";
$from = 'stewart.watkiss@region1.charity.org';
$to = 'webmaster@region1.charity.org';

@text = ['From: Stewart Watkiss <stewart.watkiss@region1.charity.org>'."\n", 'To: Webmaster <webmaster@region1.charity.org>'."\n", "Subject: Test Message\n", "This is the body of the message.\n","A second line\n"];


defined ($smtp = Net::SMTP->new($smtpserver, Hello => $hellostring)) or die "Unable to connect to server";

$smtp->mail($from);
$smtp->to($to);

$smtp->data();
$smtp->datasend(@text);
$smtp->dataend();

$smtp->quit();