#!/usr/bin/perl -wT
use strict;
use CGI;

my $query = CGI->new();
my $currTime = localtime;

print # $query->header( "text/html" ),
  $query->start_html( -title	=> "Current Time",
		      -bgcolor	=> "#ffffcc" ),
  $query->h1( "This is the current time:" ),
  $query->p( $currTime ),
  $query->end_html;