うるう年の月末日の算出

#うるう年の計算
#月末日のテーブル（０月、1月、２月…１２月）
@monlday = (0,31,28,31,30,31,30,31,31,30,31,30,31);
#％は、割って余りを求める。
#２月の末日をうるう年にしたがって変更する。
if ($syear % 4 == 0) {
$monlday[2] = 29;
if (($syear % 400 != 0) && ($syear % 100 == 0)) {
$monlday[2] = 28;
}
}
こんな、感じです。
参考になりますか？