#! /usr/bin/perl

use warnings;
use strict;
use Time::Local;

print "Enter:  day  month  year in format n mmm y\n";
my ( $day, $month, $year ) = split ' ', <STDIN>;
print "day=$day, month=$month, year=$year\n";
$month = lc $month;
my %months = (
              jan => 0,
              feb => 1,
              mar => 2,
              apr => 3,
              may => 4,
              jun => 5,
              jul => 6,
              aug => 7,
              sep => 8,
              oct => 9,
              nov => 10,
              dec => 11,
              );
if ( $month =~ /^\d+$/ ) { --$month } else { $month = $months{$month} }
eval {
    my $time = timelocal( 0, 0, 0, $day, $month, $year );
};
if ( $@ ) { print "$@: bad" } else { print "good" }
print " date\n";