use CGI qw(:cgi-lib :standard); use CGI::Carp qw ( fatalsToBrowser ); use JSON::Parse 'parse_json'; use REST::Client; my $client = REST::Client->new(); $client->setHost('http://localhost'); my $query = new CGI(); $query->import_names('Q'); my $adId = $Q::adId; #my $adId = $query->param("adId"); print "Content-type: text/html\n\n"; print $adId;