Help for this page
$a=sprintf "%02d%02d%02d",$_[0]%4,(2+$_[0])%40%4,$_[0];
for(1..100){$a+=$_%10?400:36400;}