my $pop3 = new Mail::POP3Client( USER => 'xx', PASSWORD => 'xx', HOST => 'xx' ) or die "$!";
$num = $pop3 -> Count();
print $num;