Help for this page
my $sth=$dbh->prepare( "SELECT DATE_FORMAT(NOW(), '%M %D, %Y')"); my $rv=$sth->execute; my ($date) = $sth->fetchrow_array; $sth->finish;
use POSIX qw( strftime ); my $date = strftime "%B %d, %Y", localtime;