[mar]

у меня письма удалялись так:

Код:

sub to_del {
   $pop_del = new Mail::POP3Client( 
                                AUTH_MODE =>'PASS', 
                                USER => $user,
                                PASSWORD => $pass,
                                HOST => $host,
                                ) or err(); # или уходим

   @a=param("mark"); #это из формы передавались номера помеченных на удаление письма 
    foreach $delit (@a) { #для каждого
          $pop_del->Delete($delit);  #удаляем
        }
    $pop_del->Close() || die $pop->Message(); #закрываем соединение, или отпадаем
    sleep(5); #ВРЕМЯ ДЛЯ СЕРВЕРА, ЧТОБЫ СОЕДИНЕНИЕ НОРМАЛЬНО ЗАКРЫЛОСЬ
}