POPする (module)Net-POP3

Net::POP3 を使う

my $pop3 = Net::POP3->new($popserv);

# ログイン
$pop3->login($user, $pass);
  # apop の場合は
  # $pop3->apop($user, $pass);
  # ※ 要 Digest::MD5;

# メールリストの取得
$msg_nums = $pop3->list;
  # ハッシュのリファレンスで
  # キー: メッセージ番号 / 値: メッセージサイズ

foreach my $msgnum (keys %$msg_nums) {

  # メッセージの取得
  $msg = $pop3->get($msgnum);
    # 配列のリファレンスで、1行1要素
    # 第2引数にファイルハンドルを与えてもOK
    # 「先頭xバイト」を取得したいなら
    # $msg = $pop3->top($msgnum, $byte);

  # メッセージの削除
  $pop3->delete($msgnum);
}

$pop3->quit();