##            メール全削除プログラム
##                                     2008/04/04
##                                 Tomoichi Ebata
##   E-mail:http://www.kobore.net/mailAddress.gif

## メールサーバに溜ったメールを、問答無用で全部削除する
## このプログラム稼動中に到着したメールは、削除されない
## (最初のメールリスト取得時には、当該新着メールはカウントされないから)


use Net::POP3;

print "メールのダウンロードを確認して下さい。\n";
print "本プログラム完了後に、メールの復活はできません。\r";
$| = 1; # 上記のコメントを強制フラッシュ

chomp($str = <STDIN>); # キー入力を待つ


#POPサーバ(IPアドレス"123.456.78.9"、Port番号"4321") に接続
my $pop = Net::POP3->new('123.456.78.9', Port => 4321, Timeout=> 120) || die "Cound\'t Connect to POP server\n";
my $count=$pop->login('loginname', 'password') || die "Authentication failed\n";
#メールのリストを取得
my $list_href = $pop->list;

print "削除の対象となるメールは   ";
print "$count";
print "  あります。\n\n";

print "<<警告>>リターンキー押下後に、メールの復活はできません。\n";
print "<<警告>>Ctrl-Cで中止することができます\n";

$| = 1; # 上記のコメントを強制フラッシュ
chomp($str = <STDIN>); # キー入力を待つ

#メールを一通づつ取得し消去する

foreach my $msg_id (keys %$list_href){
    my $message = $pop->get($msg_id); #メールを取得
#    print @$message; # メッセージの表示
    $pop->delete($msg_id); #メールを削除
}

$pop->quit;