chiark - git - mdw - odin-cgi/blob - cgi/ip

   1 #! /usr/bin/perl
   2 print <<EOF;
   3 Content-type: text/plain; charset=us-ascii
   4
   5 $ENV{REMOTE_ADDR}
   6 EOF
   7 exit 0;