use Date::Calc qw( check_date );

if ( check_date( $jahr, $monat, $tag ) { 
  # korrektes Datum
}
else {
  # inkorrektes Datum, hau dem User was um die Ohren
}