\perl32\bin\perl -e"$n=2;$n*=2 for 1..52;$n-=20;print pack'd',$n++ for 1..20" | 
perl -nE"printf qq[%16.f\n],$_ for unpack'd*', $_"
9007199254740972
9007199254740973
9007199254740974
9007199254740975
9007199254740976
9007199254740977
9007199254740978
9007199254740979
9007199254740980
9007199254740981
9007199254740982
9007199254740983
9007199254740984
9007199254740985
9007199254740986
9007199254740987
9007199254740988
9007199254740989
9007199254740990
9007199254740991