#!/usr/bin/perl -w

use strict;
use CGI;

my $q = new CGI;
my $timestamp = localtime;

print $q->header ("text/html"),
      $q->start_html ( -title => "Current Time"),
      $q->h2 ("Current Time"),
      $q->hr,
      $q->p( "This system figures current time as: ",
             $q->b($timestamp)
            ),
      $q->end_html;