my $smtp = Net::SMTP->new('smtp.orcon.net.nz',
                           Timeout => 30,
                           Debug   => 1,
                          );


$smtp->mail('no\@one.com');
$smtp->to(xxx\@yyy.com');
$smtp->data();
$smtp->datasend("To: xxx\@yyy.com\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;