#!/usr/local/bin/perl -W
use strict;
use CGI;
my $q = CGI->new();
print $q->header().$q->h3('IP address using regular method').$q->remote_addr()."\n";
print $q->h3('IP address using much more easier method');
my $rem_ip = $ENV{REMOTE_ADDR};
print $rem_ip;
