use Mail::POP3Client;
use strict;
use warnings;
my $pop = new Mail::POP3Client( USER => "{username}",
			PASSWORD => "{mypassword}",
			HOST => "pop.secureserver.net" );
my $i=1;
for($i=1;$i<=$pop->Count();$i++){
	foreach($pop->Head($i)){
    	/^(From|Subject):\s+/i && print $_, "\n";
	}
}
$pop->Close();