#!/usr/bin/perl
# test1.pl
use strict;
use JSON; 
use CGI;
my $q = new CGI;
my $json = encode_json(
  { msg => "Time now is ".localtime }
);
print $q->header( -type => 'application/json' ),$json;