Help for this page

Select Code to Download


  1. or download this
    if ($b_month !~ /^\d+$/) {
        $b_month = Decode_Month($b_month,1);
    }
    ...
        print "Sorry, that is not a month.\n";
        $b_month = birth_month();
     }