#!/usr/bin/env perl

use 5.012;
use warnings;

use DateTime;

my $dt = DateTime->new(year => 2002, month => 2, day => 21);

say "I'm pretty sure it was a " . $dt->day_name;
say "Today is " . DateTime->now()->day_name;