Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
use warnings;
...
say $dow->day_of_week, ' ', $dow->strftime("%A");
$dow = today;
say $dow->day_of_week, ' ', $dow->strftime("%A");

Select or download this
```
4 Thursday
1 Monday
```