#!/usr/bin/perl -l

use strict;
use warnings;
use Mail::POP3Client;

BEGIN {
    $ENV{'POPTESTACCOUNT'} = 'user:password:pop.example.com';
}

my $host = 'pop.example.com';
my $user = 'user';
my $password = 'password';

my $pop = Mail::POP3Client->new(
    USER          => $user,
    PASSWORD      => $password,
    HOST          => $host,
    PORT          => 995,
    USESSL        => 1,
    DEBUG         => 1,
    STATE         => 'AUTHORIZATION',
    AUTHMODE_PASS => 'PASS',
    MESG          => 'OK',
    LOCALADDR     => '127.0.0.1',
    TIMEOUT       => 30,
);
$pop->Connect();
print "You have ", $pop->Count, " messages";