Select Code to Download

use strict;
use warnings;
...
    my $result = check_date($yr, $mon, $day);
    printf "Result for '$date' => %s\n", $result? "Okay": "Bad";
}

Result for '28-02-2007' => Okay
Result for '31-02-2007' => Bad