Example

##

#!/usr/bin/env perl
use warnings;
use strict;
use open qw/:utf8 :std/;
use CGI qw/header/;
use JSON::MaybeXS qw/encode_json/;

my $q = new CGI;
my $first = $q->param("first");
my $last = $q->param("last");

my $response = { F=>$first, L=>$last };

print header(-charset=>'UTF-8', -type=>'application/json');
print encode_json($response);