Perl

O que está de errado neste código ?

#!/usr/local/bin/perl

use MIME::Base64;
use Net::SMTP::SSL;
my ($servidorsmtp,$usuariosmtp,$senhasmtp) = ('send@x.com', 'abcdefg');
my ($nomeremetente,$emailremetente) = ('', 'odkasodsa@x.com');
my ($nomedestinatario,$emaildestinatario) = ('', 'email@gmail.com');
my $assunto = 'teste ando';
my $emailresposta = 'ml@x.com';
my $corpo = 'texto';
my $dominiohello = 'x.com';
my $enviador;

if (not $enviador = Net::SMTP::SSL->new($servidorsmtp,
Hello => $dominiohello,

Port => 465,
Debug => 1)) {
die "Nao foi possivel conectar\n";
}
open(FOO, corpo.html);
@foo = <FOO>;
$corpo = join("\n", @foo);
open (BANDFIT, "list.txt") || die "Nao foi possivel abrir a lista";
$cont=0;
while(<BANDFIT>) {
my $ID = $_;

foreach ($ID) {
$emaildestinatario = $ID;
$usuariocriptografado = encode_base64("\00".$usuariosmtp."\0".$senhasmtp);
$enviador->datasend("AUTH PLAIN " . $usuariocriptografado);
$enviador->mail($emailremetente);
$enviador->to($emaildestinatario);
$enviador->data();
@meses = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@diasdasemana = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($segundo, $minuto, $hora, $diadomes, $mes, $ano0, $diadasemana, $diadoano, $dlsgs) = localtime();
$ano = 1900 + $ano0;
$enviador->datasend('From: "' . $nomeremetente . '" <' . $emailremetente . '>' . "\n");
$enviador->datasend('To: "' . $nomedestinatario . '" <' . $emaildestinatario . '>' . "\n");$enviador->datasend('Subject: ' . $assunto . "\n");

if (length($diadomes) == 1) {

my $diadomes = '0' . $diadomes;
}

if (length($hora) == 1) {

my $hora = '0' . $hora;
}

if (length($minuto) == 1) {

my $minuto = '0' . $minuto;
}

if (length($segundo) == 1) {

my $segundo = '0' . $segundo;
}
$enviador->datasend("Date: $diasdasemana[$diadasemana], $diadomes $meses[$mes] $ano $hora:$minuto:$segundo -0600\n");
$enviador->datasend('MIME-Version: 1.0' . "\n");
my ($bi, $bn, @bchrs);
my $boundry = "";

foreach $bn (48..57,65..90,97..122) {

$bchrs[$bi++] = chr($bn);
}

foreach $bn (0..28) {

$boundry .= $bchrs[rand($bi)];
}
$enviador->datasend("Content-Type: multipart/alternative; boundary=\"$boundry\"\n");
$enviador->datasend("Reply-To: " . $emailresposta . "\n\n");
$enviador->datasend("\nThis is a multi-part message in MIME format.\n");
$enviador->datasend("\n--$boundry\n");
$enviador->datasend("Content-Type: text/html; charset=ISO-8859-1\n");
$enviador->datasend("Content-Transfer-Encoding: 8bit\n");
$enviador->datasend("\n $corpo \n\n");
$enviador->datasend("\n--$boundry--\n\n");
$enviador->dataend;
$enviador->quit;
$cont=$cont+1;
printf "$cont Enviado para $emaildestinatario \n";
}
}