#!/usr/bin/perl -w

use Mail::Box::Manager;

my $mgr    = Mail::Box::Manager->new;

my $pop = $mgr->open(type => 'pop3',
            username => 'Name',
            password => 'Passwort',
            server_name => 'domain.de',
			);

my $folder = $mgr->open(folder => '.');


foreach my $msg ($folder->messages) { # all messages
	my @to = $msg->to;
}