Perl и работа с почтой !

скрипт, логинящийся и читающий почту(но не забирающий с сервера), как дальше, смотри man Net::POP3 

#!/usr/bin/perl

use Net::POP3;

$p=Net::POP3->new("tv.server.ru")
  or die "cant open connection to server: $!\n";
$p->login("test","rusalka") or die "Cant  authentificate: $!\n";
$m=$p->list or die "cant get list of undeleted mesg: $!\n";
foreach $list(keys %$m){
$msg=$p -> get($list);
print "@$msg\n";
}