SMTP authentication with Perl

#!/usr/local/bin/perl -w
use Net::SMTP;
$recipient = 'somebody@somewhere.com' ;
$from	   = 'not.me@ademar.name' ;
$smtp = Net::SMTP->new('smtp.ademar.name', 
			Timeout => 60,
			Debug   => 1);
## smtp server requires authentication 
$smtp->auth('not.me@ademar.name','*******');
$smtp->mail($from);
$smtp->to($recipient);

$smtp->data();
$smtp->datasend("To: $recipient\n");
$smtp->datasend("Subject: test message\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();

$smtp->quit;