Исходное сообщение
"Удалениние почты с внешних ящиков" Отправлено angra, 20-Авг-09 17:47
Рекомендую http://search.cpan.org/~gbarr/libnet-1.22/Net/POP3.pm даже без малейшего знания perl из synopsis должно быть понятно как получить результат :) Но на всякий случай пример #!/usr/bin/perl -w use strict; use Net::POP3; my @boxes=(['host1', 'user1', 'passwd1'],);#заполните массив foreach my $box (@boxes) {   my $pop = Net::POP3->new($box->[0]);   if ($pop->login($box->[1],$box->[2])>0) {     my $msges = $pop->list;     $pop->delete($_) foreach keys %$msges;   } else {     print "Can't login to @$box\n";   } }