TE.PL

#!/usr/bin/perl -w


use JSON; 
use CGI;
my $q = new CGI;


my $name = $q->param("fname");

my $json = encode_json(
  { msg => $name }
);
print $q->header( -type => 'application/json' ),$json;