Probleme script perl envoi de mail

use strict;
use Net::SMTP;

my $message = "From: vu-du-ciel\@laposte.net\nTo:mathurin_61\@hotmail.fr\nSubject: Hello World\n\nTest\n\n";
print "Message:\n";
print $message;
print "\n";

my $DEBUG = 1;

my $ServerName = "smtp.laposte.net";
my $ServerAccount = "vu-du-ciel\@laposte.net";
my $ServerPwd = "******";
my $MailFrom = "vu-du-ciel\@laposte.net";
my $MailTo = "mathurin_61\@hotmail.fr";

print "Server variables assigned\n";


my $smtp = Net::SMTP->new($ServerName, Hello => "ooooooooooooo",  Debug => 1);
die "Couldn't connect to server" unless $smtp;
print "Server connection opened\n";

if ( !$smtp->auth($ServerAccount, $ServerPwd) ) {
print "authentication failed or not needed\n";
}

if ( !$smtp->mail( $MailFrom ) ) {
print "sender not accepted\n";
exit 1;
}

if (!$smtp->to( $MailTo ) ) {
print "addressee not accepted\n";
exit 1;
}

print "Server variables checked\n";

my $maildata = $message;
$smtp->data();
$smtp->datasend( $maildata );
$smtp->dataend();
$smtp->quit();
$smtp->quit;

print "Finished sending email\n";