#!/usr/bin/perl
use strict;
use warnings;
use JSON;
use CGI;

my $cgi = CGI->new();
my $string = $cgi->param('s');
my $json = encode_json( [$string] );
print $cgi->header( -type => 'application/json' );
print $json;