#!/usr/bin/perl -w

use CGI qw(:standard);
use Time::localtime;

$now = ctime();

print header(), start_html("Time"), h1("Here's the time:");

print p("The time is $now.");
print end_html();