#!/bin/perl

print "Content-type:text/plain\n\nCurrent IP Address:".$ENV{REMOTE_ADDR}."\n";