#!/usr/bin/perl -w
#gotta to figure out some taint stuff, but this is
#prototype

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;