Perl Code!

#!/usr/local/bin/perl

@days = (31,28,31,30,31,30,31,31,30,31,30,31);

print "Enter numeric:  month  day  year\n";
$_ = <STDIN>;
($month,$day,$year) = split;
$month = int($month);
$day = int($day);
$year = int($year);

if ($year % 400 == 0) { $days[1] = 29 }
elsif (($year % 4 == 0) && ($year % 100 != 0)) { $days[1] = 29 }

if ($year % 4 == 0) {
    if ($year % 400 != 0) {
        print "Leap Year!\n";
        $days[1] = 29
    }
}

if ($month > 12 || $month < 1) { print "Month invalid! ($month)"; }
elsif ($day > $days[$month-1] || $day < 1) { print "Day invalid! ($day)"; }
elsif ($year < 0 || $year > 2012) { print "Year invalid! ($year)"; }
else { print "$day,$month,$year, days in month: $days[$month-1]\n" }