#!/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();