#!/usr/bin/env perl -l

use strict;
use warnings;

use Time::Piece;

while (<STDIN>) {
    chomp;

    if (/^(\d{2})-(\d{2})-(\d{4})$/) {
        my ($day, $month, $year) = ($1, $2, $3);

        my $tp = eval { Time::Piece->strptime("$day$month$year", '%d%m%Y') };

        if (defined $tp) {
            if ($tp->ymd eq "$year-$month-$day") {
                print "... day='$day' month='$month' year='$year' ...";
            }
            else {
                print "INVALID DATE: $day-$month-$year";
            }
        }
        else {
            print "BOGUS DATE: $day-$month-$year";
        }
    }
    else {
        print 'Not DD-MM-YYYY format';
    }
}