my $msgnums = $pop->list; # hashref of msgnum => size
foreach my $msgnum (keys %$msgnums) {
   $pop->delete($msgnum);
   print "MsgNum: [$msgnum]\n";
}
$pop->close;