список отправителей на Perl

это как? отправитель вроде как один!

получатель один. А отправители то разные

а, в этом смысле (те кто письма прислали?), тогда так:


#!/usr/bin/perl -w

use strict;
use Net::POP3;

my( $host, $login, $pass ) = ( shift, shift, shift );

my $pop = Net::POP3->new($host);
$pop->login($login, $pass);
my $messages = $pop->list;
foreach my $msgid (keys %$messages) {
my $message = $pop->get($msgid);
unless (defined $message) {
warn "Couldn't fetch $msgid from server: $!\n";
next;
}
grep {print $_,"\n" if m!From: (.*?)\n!} @$message;
# $pop->delete($msgid);
}

либо какой-то другой модуль, потому как этот качает письма, если надо логиниться на удаленный компьютер

IMHO можно вместо $pop->get() использовать $pop->top()