use Mail::POP3Client;

$pop = Mail::POP3Client->new(USER => 'dkdkd@gmail.com',
PASSWORD => 'qwert',
HOST => 'pop.gmail.com',
USESSL => true,
);
print "You have ", $pop->Count, " messages\n";