#! /usr/bin/perl
use warnings;
use strict;
use POSIX;
use CGI ();

my $cgi    = CGI->new();

print $cgi->header(-expires => "+1s");
my $nick = "Nickname";
print join("\t", &TS(), $nick, $cgi->param('message') ), "\n";
print join("\t", &TS(), $nick, $cgi->param('message') ), "\n";

# ------------------------------------------------------------
sub TS {
    return POSIX::strftime("%H:%M:%S ", localtime(time));
} # GetTimeStamp
# ------------------------------------------------------------