#!/usr/bin/perl
use encoding 'utf-8';use CGI":all";
open(LOG,">>log.txt");print LOG join("<>",time,
escapeHTML(param("n")),escapeHTML(param("c"))),"\n";
put header;