Modulo Net::SMTP

[forumnet]

A tutti i naviganti,
ho questo script

my $MailFrom = "info@nomedominio.com";
my $ServerName = "mail.nomedominio.com";

$smtp = Net::SMTP->new($ServerName);
die "non ? possibile collegarsi la server" unless $smtp;

if ($smtp)
{

$smtp->mail($MailFrom );
$smtp->to($MailTo);

# Start the mail
$smtp->data();
# Send the message
$smtp->datasend("To: $MailTo\n");
$smtp->datasend("From: $MailFrom\n") ;
$smtp->datasend("Subject: Benvenuto $Nome_cli!\n");
$smtp->datasend("\n");
$smtp->datasend($PrimaStringa."\n");

$smtp->dataend();
$smtp->quit();

}

Non mi segnala alcun errore ma la mail non parte. In locale funziona,sul webserver niente...qualcuno sa dirmi dove sbaglio?

Grazie!!!