正常な日付か存在しない日付かを検査し、その検査結果を返します。
引数に年・月・日を指定すると検査を行います。
正常な場合は「0」を不正な場合は「1」を返します。

2003年4月31日 不正「1」
2004年2月29日 正常「0」（閏年の判定）
2005年2月29日 不正「1」（閏年の判定）
---------------------------------------------------
●Sample

require "datecheck.pl";

$year = 2005; #西暦(4桁)
$month = 7; #月
$day = 15; #日

if( &DateCheck( $year, $month, $day ) == 0 ){
#入力された日付は正常（戻り値が０）
}else{
#入力された日付は不正（戻り値が１）
}

---------------------------------------------------