#!/usr/bin/perl -wT

use Net::SMTP;
    
$smtp = Net::SMTP->new('mailservername.net',
   					  Debug   => 1,
   					  );
$smtp->mail('peter@mydomain.com');
$smtp->to("peter\@home.emailaddress.com");
$smtp->data();
$smtp->datasend("To: Peter\n");
$smtp->datasend("\n");
$smtp->datasend("test send\n");
$smtp->dataend();    
$smtp->quit;