#!/usr/bin/perl
use strict;
use warnings;
use 5.014;
use Date::Simple qw/ date today /;

my $dow = date('2002-02-21');
say $dow->day_of_week, ' ', $dow->strftime("%A");
$dow = today;
say $dow->day_of_week, ' ', $dow->strftime("%A");