use Mail::POP3Client;
use Mail::DeliveryStatus::BounceParser;


my $pop = new Mail::POP3Client( USER     => "undeliverables",
			     PASSWORD => "password",
			     HOST     => "the.freekin.host");

for( $i = 1; $i <= $pop->Count(); $i++){
		          
		print $pop->Count()."\n";
		$bounce = Mail::DeliveryStatus::BounceParser->new( $pop->HeadAndBody($i) );
  		if ($@) { 
			print "Could not parse message\n";
		}else{
			if($bounce->is_bounce()){
				print $pop->HeadAndBody($i);
                                print $bounce->orig_message_id."\n";
                                print scalar $bounce->addresses;
                        }
                }
}
$pop->Close();