#!/usr/bin/perl use strict; use warnings; print "Content-Type: text/plain\n"; print "\n"; #print "$ENV{REMOTE_ADDR}\n"; print "$ENV{HTTP_X_FORWARDED_FOR}\n";