Quote:
|
Originally Posted by drjones
and you really really really should turn on 'use strict;' and initialize all your variables with the my() function...
|
I did.
here is the new script :
#############################
#!/usr/bin/perl -wT
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use diagnostics;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$q = CGI->new();
$ua = LWP::UserAgent->new();
$req = POST 'http://maxmind.com:8010/b',
[l => "hgfdgghhh", i => "69.70.92.38" ];
$k = new CGI($ua->request($req)->content);
$region = $k->param( "region" );
$city = $k->param( "city" );
$country = $k->param( "country" );
print "Content-type: text/html\n\n";
print "$region\n";
exit;
################################