#!/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('/');
In reply to Re^4: Will this work?
by Anonymous Monk
in thread Will this work?
by saffron
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |