#!d:\perl\bin\perl -w
use Net::POP3;
use strict;
my $host = 'popserver';
my $mailbox = 'username';
my $password = 'password';
my ($item,$message,$line);
my $pop = Net::POP3->new($host) or die "$!\n";
$pop->login($mailbox,$password) or die "$!\n";
my $message_list = $pop->list;

foreach  $item (keys %$message_list) {
	my $message = $pop->top($item, 0);
        foreach $line (@$message){
        	print "$item = $line";
        }
}