use DateTime;

my $dt = DateTime->now();

print "Month is   " . $dt->month_name . "\n";
print "The day is " . $dt->day . "\n";