#!/usr/bin/perl -w
use warnings;

use JSON;
use CGI;

@my_query_string = split(/s=/,$ENV{'QUERY_STRING'});
my $scalar = join( '' , @my_query_string );
my $rec_hash0 = [$scalar];
my $einput = encode_json($rec_hash0);
print "Content-type: text/html\n\n";
print "$einput\n";