#!/usr/bin/env perl
use strict;
use warnings;
use Time::Piece;

my ($dd, $mm, $yyyy) = split /-/, localtime->dmy;