#!/usr/bin/perl print "Content-type: text/html\n\n"; print <<"EOM"; EOM print "あなたの
"; print "IPアドレスは $ENV{'REMOTE_ADDR'}
"; print "ホスト名は $ENV{'REMOTE_HOST'}
"; print "です。"; print ""; exit;