#! /usr/local/bin/perl # HTML出力 print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "IPアドレスを表示\n"; print "\n"; print "\n"; # ユーザーエージェント出力 print "訪問者IPアドレス:$ENV{'REMOTE_ADDR'}
\n"; # HTML出力 print "\n"; print "\n"; exit;