All pastes #2133191 Raw Edit

Untitled

public text v1 · immutable
#2133191 ·published 2012-03-28 12:44 UTC
rendered paste body
#!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";