2007-05-26 Web露出メール Trackingしたいということもあり use Digest::MD5 qw(md5_hex); my $digest = md5_hex($ENV{'REMOTE_ADDR'}); print 'TEST'.$digest.'@example.co.jp'; こんなの仕込んでみる IPアドレス等を別にしまっておくことにして in:anywhere to:TEST を検索してみると…(ふふふ