Buenas tardes.
Me conecto al servidor de correo con normalidad y puedo ver los mensajes de determinada cuenta (correo1). Lo que deseo es poder guardar los adjuntos en una carpeta determinada. Por favor, si alguien tuviera algún enlace. Abajo muestro código de conexión y lectura de correos.
#!/usr/bin/perl -w
use strict;
use Net::POP3;
my $pop = Net::POP3->new('miempresa.pe', Timeout => 10) || die "No se pudo abrir conexión: $!";
$pop->login("correo1", "pwd") or die("No se pudo hacer login: $!");
my $msgnums = $pop->list;
foreach my $msgnum (keys %$msgnums) {
my $msg = $pop->get($msgnum);
print @$msg;
}
$pop->quit;