#!/usr/bin/perl

print "Content-Type: text/html\n\n";
print defined $ENV{REMOTE_ADDR} ?
    $ENV{REMOTE_ADDR} :
    "Not Available" ,
  "\n";