#!/usr/bin/perl
# test cgi script
use strict;
use warnings;
 
print qq(Content-type: text/plain\n\n);
 
print scalar localtime;