use strict;
use warnings;
use Time::Piece;

my $date = shift || '1999-12-31';
my $time = Time::Piece->strptime( $date, '%Y-%m-%d' );
print $time, $/;
print $time->fullday, $/;