I tried the following codes.But i did not get pop count.what mistake i did don't know.so please suggest solution

use warnings;

use strict;

use Mail::POP3Client;

use IO::Socket::SSL;

my $username  ='vasanthgk91@gmail.com';
my $password  ='password';
chomp($password);

my $mailhost  ='pop.gmail.com';

my $port      ='995';

my $pop = new Mail::POP3Client(
USER     => $username,
PASSWORD => $password,
HOST     => $mailhost,
PORT     => $port,
USESSL   => 'true',
DEBUG     => 0,
);

if (($pop->Count()) < 1)
{
print "I Can't get pop count";
exit;
}
[download]

Just I get "I Can't get pop count"