use GMail::Checker;

my $mail=new GMail::Checker(USERNAME => "XXXXX",PASSWORD => "XXXXXX");
$mail->login("XXXXX","XXXXXX");
my ($no, $size)=$mail->get_msg_nb_size();

print $no." ".$size;