Select Code to Download

$a=sprintf "%02d%02d%02d",$_[0]%4,(2+$_[0])%40%4,$_[0];

for(1..100){$a+=$_%10?400:36400;}