use strict;
use warnings;

use feature 'say';

use DateTime;

my $dt = DateTime->now;

foreach my $count (1..40) {
    my $day = $dt->day_name;
    my $month = $dt->month_name;
    my $week_of_month = $dt->week_of_month;
    say "Date/time stamp:  $dt";
    say "    Name of Day:  $day";
    say "  Name of Month:  $month";
    say "  Week of Month:  $week_of_month";
    say "";
    
    my $dur = DateTime::Duration->new(days => 1);
    $dt = $dt->add_duration($dur);
}