#!/usr/bin/perl -w

use Net::POP3;
use strict;

my $usuario = "$usuario";
my $pass = "$pass";
my $pop3conn = Net::POP3->new('pop.gmail.com', Timeout=>60)
                                or die "NADA.\n";
#$pop3conn->auth($usuario,$pass);
if($pop3conn->login($usuario, $pass) > 0){
        my $nummsg = $pop3conn->list();
        foreach my $nummsg (keys %{$nummsg}){
        my $msg = $pop3conn->get($nummsg);
        print @$msg;
        $pop3conn->delete($nummsg);
        }
}
$pop3conn->quit();

use Mail::POP3Client;
use IO::Socket::SSL;

my $socket = IO::Socket::SSL->new(
                PeerAddr => 'pop.gmail.com',
                PeerPort => 995,
                Proto    => 'tcp',
            )
            or die "No socket!: $!\n";
my $pop = Mail::POP3Client->new();
$pop->User(USERNAME);
$pop->Pass(PASSWORD);
$pop->Socket($socket);
$pop->Connect();

# me fijo cuantos hay
my $count = $pop->Count();

# si hay más de uno, los proceso
if ($count > 0){
    # por cada uno lo voy trayendo
    for ($i = 1; $i <= $count; $i++) {
        # me los va devolviendo línea por línea
        foreach ( $pop->HeadAndBody($i) ) {
            # acá va el procesamiento, por ejemplo
            print $_;
        }
    }
}

# acá va el procesamiento, por ejemplo
    /^(From|Subject):\s+/i and print $_, "\n";