This just worked for me: linux, perl5.8

#!/usr/bin/perl
use Mail::POP3Client;
$pop = new Mail::POP3Client(USER => "zentara",
                    PASSWORD => "bigsecret",
           HOST     => "mail.whereever.com" );

for( $i = 1; $i <= $pop->Count(); $i++ ) {
foreach( $pop->Head( $i ) ) {
/^(From|Subject):\s+/i && print $_, "\n";
}
}
$pop->Close();
[download]