#!/usr/local/bin/perl -w

use Mail::Box::IMAP4;

my $f = Mail::Box::IMAP4->new(host => "10.X.X.X", 
                        username => "someuser",
                        password => "somepassword",
                        folder => "GENERADOR DE LISTAS",
                        trace => 3,
                        debug => 3) or die "Can't connect: $@";

foreach my $msg ($f->messages)
{
        print "Message header: [".$msg->getHead()."]\n";
}