Enviar un por email un archivo

[Delfin]

Como puedo hacer para mandar un archivo adjunto en perl ya puedo hacer que mande mensajes pero no puedo hacer que envie un archivo...

Muchas gracias de antemano a todos

;)

[quiko]

Dime como estas implemeando la interface con SMTP o culaquier otro protocolo que uses y dependiendo de lo que estas utilizando te diria.. si es que lo se.

[quiko]

Dime como estas implemeando la interface con SMTP o culaquier otro protocolo que uses y dependiendo de lo que estas utilizando te diria.. si es que lo se.

[Delfin]

Quico esta es la forma en que manejo el SMPT
sub correo{
my($mailto,$mailfrom,$mailServer,$subject,$mensaje ,$from)=@_;
$main::SIG{'INT'}="closeSocket";
my $proto= getprotobyname("tcp");
my $port= getservbyname("SMTP","tcp") ||25;
my $serverAddr= (gethostbyname($mailServer));
socket(SMTP,AF_INET(),SOCK_STREAM(),$proto)
or die("cocket: $!");
connect(SMTP,pack('S n a4 x8', AF_INET(),$port, $serverAddr))
or die("connect: $!");
select(SMTP); $|=1; select(STDOUT);
{
my($inpBuf)='';
recv(SMTP,$inpBuf,200,0);
}

sendSMTP(1,"HELO\n");
sendSMTP(1,"MAIL From: <$mailfrom>\n");
sendSMTP(1,"RCPT To: <$mailto>\n");
sendSMTP(1,"DATA\n");
sendSMTP(1,"From: $from \n",0);
sendSMTP(1,"Subject: $subject \n",0);
sendSMTP(1,$mensaje,0);
sendSMTP(1,"\r\n.\r\n");
sendSMTP(1, "QUIT\n");
close(SMTP);
}
sub closeSocket{
close(SMTP);
die("SMTP Socket cerrado\n");
}
sub sendSMTP{
my($debug)=shift;
my($buffer)=@_;
send (SMTP, $buffer,0);
chop ($buffer);
#return( (split(/ /,$buffer))[0]);
}

Espero me puedas ayudar a ver si ando mal en algo