#!/usr/local/bin/perl -T --
use strict;
use warnings;

use CGI();
use Time::Piece qw[ localtime gmtime ];
my $cgi = CGI->new;
my $subject = $cgi->escapeHTML( $cgi->param('subject') );
my $time = localtime;
my $long_date = $time->strftime;
my $date = $time->hms .' '. $time->mdy('/');