use lib qw(/home/redanti/perl);
use strict;
use Mail::POP3Client;
my $pop = new Mail::POP3Client(
                               HOST => 'www.redantigua.com',
                               USER => 'kuuse',
                               PASSWORD => 'my_password',
                              );
$pop->Connect();
for( my $i = 1; $i <= $pop->Count(); $i++ ) {
  foreach( $pop->Head( $i ) ) {
    /^(From|Subject):\s+/i && print $_, "\n";
  }
}
$pop->Close();