connect() failed: Descriptor de fichero erróneo

[majitop1986]

buenos dias a todoooosss

tengo un problema con perl, estoy creando un script para enviar email desde perl, pero yo no tengo instalado en mi servidor linux sendmail, sino postfix por mayor comodida, pero cada vez q lo mando a correr me sale este error

Código:

connect() failed: Descriptor de fichero erróneo

mi script en perl es:

Código:

#!/usr/bin/perl -w

use strict;
use warnings;
use Mail::Sender;


my $sender = new Mail::Sender
{smtp => 'mail.tel.net', from => 'mjroman\@tel.net'};

my $err = $Mail::Sender::Error;
my $sendto = "mjroman\@tel.net";
my $copys = "mjroman\@tel.net";
my $subject = "prueba";
my $message = "esto es una prueba";

if($sender->MailMsg({to => $sendto,
        cc => $copys,
        subject => $subject,
        msg => $message })<0)
{
        die "$Mail::Sender::Error\n";
}
print "Mail sent OK.";
#$err = $Mail::Sender::Error;
#$sender->Close;

y noc q hago mal porq no me señala ninguna linea en el error, a alguien le ha pasado esto??

[monoswim]

de que descriptor de archivo está hablando ?

porque hacés el my $err = $Mail::Sender::Error; si luego no lo usas...limpia un poco tu código...

talvés eso hace que no pueda manejar bien los errores...pensá que cuanto más código más probabilidad de error...