use Net::POP3;

my $server = 'mail.mces.titech.ac.jp';
my $port   = 995;
my $SSL    = 1;
#my $server = 'localhost';
#my $port   = 110;
#my $SSL    = 0;

my $user   = 'tkamiya';
my $pw     = 'kami96shimizu';

#my $pop = Net::POP3->new($server);
#my $pop = Net::POP3->new($server, Port => $port, Timeout => 60);
#my $pop = Net::POP3->new($server, SSL => $SSL, Port => $port, Timeout => 60);
#print "pop=$pop\n";


my $pop3 = Net::POP3->new($server, Port => $port, Debug => 1);
print "pop=$pop\n";
$pop3->starttls(SSL_verify_mode => 0) || die "Can't perform starttls: $!";


my $ret = $pop->login($user, $pw);
print "ret=$ret\n";
if($ret > 0) {
      my $msgnums = $pop->list; # hashref of msgnum => size
print "nmessage=$msgnums\n";
#      foreach my $msgnum (keys %$msgnums) {
#        my $msg = $pop->get($msgnum);
#        print @$msg;
#        $pop->delete($msgnum);
#      }
}