#!d:\perl\bin\perl.exe

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

$ip = $ENV{'REMOTE_ADDR'};
$title = "My first cgi/perl script";

print "<HTML><HEAD>\n<TITLE>$title</TITLE>\n</HEAD>\n";

print "<BODY>\n";

print "<h1>welcome $ip</h1>\n";

print "</BODY>\n</HTML>\n";