#!/usr/bin/perl -w

use lib '.';
use Mail::Box::POP3;

my $folder = Mail::Box::POP3->new
 ( server_name => 'pop.xs4all.nl'
 , username    => 'mbtest'
 , password    => 'E=m*c^2'
 , access      => 'rw'
 );

die unless $folder;

warn "Got folder with ".$folder->messages. " messages\n";

my $msg = $folder->message(0) or die;
print "S1:",$msg->head->get('subject'), "\n";
print "S2:",$msg->get('subject'), "\n";
print "S3:",$msg->subject, "\n";

#my $str = $msg->decoded->string;
#print $str;
