use Net::SMTP;    
$smtp = Net::SMTP->new('mail.telus.net');
$smtp->mail('p@abc.com');
#$smtp->to('p@abc.com'); #this one works, assume p@abc.com exists
#$smtp->to("p@abc.com"); #this one doesn't work, as Perl will try to resolve @abc for you
#$smtp->to('p\@abc.com'); #this one does not work, as Perl see the address as p\@abc.com (assume that this address does not exist)
#$smtp->to("p\@abc.com"); #this one works, as we escaped that @
$smtp->data();
$smtp->datasend("To: Peter\n");
$smtp->datasend("\n");
$smtp->datasend("test\n");
$smtp->dataend();    
$smtp->quit;