#!/usr/bin/perl -w
use strict;
# Enable all the warnings
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI qw/:standard/;
# Turn off buffering (possibly unnecessary depending on Perl version,
# but can't hurt)
$|++;

# Get the date
my $date = qx{date /t};

print header, start_html, p($date), end_html;