Select Code to Download

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