#! /usr/bin/perl -w
use strict;
print "Enter numeric:  day  month  year\n";
my ( $day, $month, $year ) = split ' ', <STDIN>;
print "day=$day, month=$month, year=$year\n";
my %days = (
            Jan => 31,
            Feb => 28,
            Mar => 31,
            Apr => 30,
            May => 31,
            Jun => 30,
            Jul => 31,
            Aug => 31,
            Sep => 30,
            Oct => 31,
            Nov => 30,
            Dec => 31,
            );
$day > 0 and $days{$month} and $day <= $days{$month} or die "bad date\n";
print "good date\n";