#!/usr/bin/perl
use strict;
use diagnostics;
my $month;
print "\t Enter Month of a year \n";
chomp($month = <>);
my %days_month = (
January => 31,
February => 28,
March => 31
);
print "\t Number of Days in month of $month is
$days_month{$month} \n";__________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
