#!/usr/bin/perl

use Mail::POP3Client;

$pop = new Mail::POP3Client(
    USER     => "user",     
    PASSWORD => "pass",
    HOST     => "server.domain.tld"
);
for ( $i = 1 ; $i <= $pop->Count() ; $i++ ) {
    foreach ( $pop->Head($i) ) {             
        /^(From|Subject):\s+/i and print $_, "\n";
    }                                             
    print "\n";
}