use strict;
use Date::Calc qw/Today Month_to_Text/;

my ($year, $month, $day) = Today();  # work with today's date
print sprintf("%s %d, %d", Month_to_Text($month), $day, $year);