Here's a small program showing how you could pass a date string as dd-mm-yyyy, parse it into the corresponding day, month, and year, and test it with Date::Calc::check_date:

use strict;
use warnings;

use Date::Calc qw/check_date/;

check_this("28-02-2007");
check_this("31-02-2007");


sub check_this {
    my ($date) = @_;
    if ($date !~ /^(\d+)-(\d+)-(\d+)$/) {
        printf "Invalid date '$date'\n";
        return;
    }
    my ($day, $mon, $yr) = ($1, $2, $3);
    my $result = check_date($yr, $mon, $day);
    printf "Result for '$date' => %s\n", $result? "Okay": "Bad";
}
[download]

The output is:

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

Update:  Fixed mistyped method name.

A variety modules (e.g. Time::Local) can be used convert from "month, day, year" (and "hour, minute") values to seconds since the epoch (i.e. "unix seconds"), and they can be fairly tolerant about numeric values that are out-of-range (e.g. a day value of 32, or Feb. 30, or an hour value of 26).

But when converting from seconds back to month, day, year, hour, minute (e.g. using localtime), you will always get a valid date. So if the input string does not match the output string, the input must have been invalid in some way.

Hello,

The node: Re: Problem in date checking script might get you started. By the way, please, remember that Super Search is your friend. Searching for check valid date would give you some initial answers.

Cheers,