#!/usr/local/bin/perl

$rhost = $ENV{'REMOTE_HOST'};

print "Content-type: text/html\n\n";

print "<html><head><title>ENV REMOTE_HOST</title></head><body>\n";
print "あなたのリモートホストは、$rhostです。\n";
print "</body></html>\n";