$pop = Mail::POP3Client->new($pop3user,$pop3pwd,$pop3host);
$num_mesg = $pop->Count;

for ($i = 1; $i <= $num_mesg; $i++)
{   
    $head=$pop->Head($i);
    print($head);
    $mail_body=$pop->Body($i);
    print($mail_body);
    $pop->Delete($i);
    
}

$pop->Close();