my $mgr = new Mail::Box::Manager;

my $pop = $mgr->open(type => 'pop3',folder => '/' ,username => $username, password => $password ,server_name => $serveraddress ,server_port => $serverport,  access => 'rw' ) or die("Cant open account");

my $count = scalar $pop->messages;

print $count;