#! /usr/bin/perl


my $popserver = 'localhost';
my $popuser = 'twiki@mrjc.com';
my $poppassword = 'kapiti12';

use Net::POP3;
my $pop =  Net::POP3->new($popserver, Debug=>'1');
$pop->login($popuser, $poppassword);

use lib('/var/www/html/twiki/lib/');
use TWiki::MailIn;

my $msgarrref = $pop->get(1);
my $message = join('',@$msgarrref);

#print $message;
TWiki::MailIn->send($message);

$pop->quit();