#!/usr/bin/perl -l

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

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

my $pop = Mail::POP3Client->new(
    HOST     => $host,
    USESSL   => 1,
    USER     => $user,
    PASSWORD => $password,
);
print "You have ", $pop->Count, "messages";