#!/usr/local/bin/perl # ********************************************************** # メール受信テストサンプル # # 実行時、HTML 上で <> で挟まれたメールアドレス等は # 表示されないのでソースを確認する必要があります # ********************************************************** print "Content-Type: text/html; Charset=Shift_JIS\n"; print "\n"; $server_name = "ドメイン"; $user_name = "ユーザ.ドメイン"; $user_pass = "パスワード"; # メールを受信します use Net::POP3; # メールデータを解析します use