my $msgnumlist = $pop->list();
$pop->delete($msgnumlist->{$delnum});
$pop->quit();