$pop = Net::POP3->new('pop.mail.ru');
$pop = Net::POP3->new('pop.mail.ru', Timeout => 60);

зачем 2 раза?

в начало добавь
use strict;
use warnings;