#!/usr/bin/perl

use strict;
use Socket;
use Net::IMAP::Client;

use lib 'd:/Programs/Perl/lib';

my $UseSSL = 1;
my $port   = 993;
my $host   = 'mail.nap.gsic.titech.ac.jp'; 
my $user   = 'kamiya.t.aa';#'tkamiya';
print "password>>";
my $passwd = 'kami96shimizu';
$passwd = <> if($passwd eq '');; #get_passwd($user, $host) || 0;

my $imap = Net::IMAP::Client->new(server => $host, user => $user, pass => $passwd, ssl => $UseSSL, port => 993)
	or die "Can't connect to $host: $!\n";
$imap->login or die "Can't login to $host as $user: $!\n";

$pop->quit();