#!/usr/bin/perl

use Net::SMTP_auth;

$smtpserver = 'mail.myserver.com';
my $ServerAccount = "mailbox\@myserver.com";
my $ServerPwd = "mb128com";

my $smtp = Net::SMTP->new($smtpserver, Hello => "myserver.com",  Debug => 1);
$smtp->auth('CRAM-MD5', '$ServerAccount', '$ServerPwd');

exit;