#!/usr/bin/perl -T

use strict;
use warnings;
use CGI qw(:standard);
use Time::Piece;

print header,
    start_html('a better time script'),
    p('The date is ', localtime->strftime('%D')),
    p('The time is ', localtime->strftime('%r')),
    end_html,
;