my $lm_str = POSIX::strftime("%a, %d %b %Y %H:%M:%S %z", localtime($time));
print CGI->header(-type=>'text/json',
-last_modified=>$lm_str,
-access_control_allow_origin=>'http://analysis.sesse.net',
-expires=>'now');
my $lm_str = POSIX::strftime("%a, %d %b %Y %H:%M:%S %z", localtime($time));
print CGI->header(-type=>'text/json',
-last_modified=>$lm_str,
-access_control_allow_origin=>'http://analysis.sesse.net',
-expires=>'now');