chomp(my $month = <STDIN> ); 
$month--;
print "Invalid Month $month specified\n" unless (exists $months[$month]);
unless (exists $months[$month] && ( $month >=0 && $month <= 11 ) ){ 
    print" Quitting. Insufficient user IQ or typing skills\n";
    exit;
}