#!/usr/bin/perl
use strict; use CGI ':standard';
use CGI::Carp "fatalsToBrowser";

my $req=$ENV{QUERY_STRING}; my $i='0';
my $ref=$ENV{HTTP_REFERER};
my $p=param('data');
my $ad=param('address');
my $num_args = $#ARGV + 1;

$i++ if $p;
$i++ if $ad;
$i++ if $req;

my $file='json.txt';
open FH,'>',$file;
print FH "R:$ref
Q:$req
A:$ad
P:$p
G:$ARGV[0]

"; close FH; wait;
my $fsz= -s $file;

print header,"file Sz:$fsz ARGV: $num_args I: $i";