Select Code to Download

while ($__month >= 0){
       $days = $days + $monthdays[$__month];
       --$__month;
   }

@monthdays = ("0", "31","28","31","30","31","30","31","31","30","31","
+30","31");
my $days = 0;
...
    #--$__month;
}
$days = $days + $__day;