#!/usr/bin/perl

use strict;
use Socket;
use Net::POP3;
use Mail::Header;
#use PromptUtil;

my $host   = 'lucid.msl.titech.ac.jp';#'sv.msl.titech.ac.jp';
if($host !~ /^\d{4}\.\d{4}\.\d{4}\.\d{4}\$/) {
	my $packed_addr = gethostbyname($host) or die "Can not resolve host name [$host]: $!\n";
#print "packed_addr: $packed_addr\n";
	$host = inet_ntoa($packed_addr);
#print "host: $host\n";
}

my $user   = 'tkamiya';
print "password>>";
my $passwd = <>; #get_passwd($user, $host) || 0;

my $pop      = Net::POP3->new($host, Timeout => 30) or die "Can't connect to $host: $!\n";
my $messages = $pop->login($user => $passwd) or die "Can't log in: ", $pop->message, "\n";

print "OK\n";

my $last = $pop->last;
$messages += 0;
print "inbox has $messages messages (", $messages-$last, "new)\n";

for my $msgnum ($last+1 .. $messages) {
	my $header = $pop->top($msgnum);
	my $parsedhead = Mail::Header->new($header);
	chomp(my $subject = $parsedhead->get('Subject'));
	chomp(my $from    = $parsedhead->get('From'));
	
	print "%4d %-25s %-50s\n", $msgnum, $from, $subject;
}

$pop->quit();