use strict;
use warnings;

use Date::Calc 'check_date';

my $date = '02/31/2007'; # Or whatever
my @date = ( split /[-\/]/,$date )[2, 0, 1];

if ( check_date( @date ) ) {
  # do stuff
}
else {
  # print error message
}