#!/usr/bin/perl


use JSON; 
use CGI;
my $q = new CGI;
my $json = encode_json(
  { msg => "Time now is ".localtime }
);

print "Content-type: text/html\n\n";
print $json;