use strict;
use warnings;
use Net::POP3;

my $pop = Net::POP3->new('abc.xx.com');

if ($pop->login('XXXX', 'YYYYYYY') > 0) {

    my $msgnums = $pop->list; # hashref of msgnum => size

    foreach my $msgnum (keys %$msgnums) {

        my $msg = $pop->get($msgnum);

        print @$msg;

        #$pop->delete($msgnum);
    }
}

$pop->quit;