c:\test>perl -E"say Win32::GetTickCount() for 1 .. 10"
2554402647
2554402647
2554402647
2554402647
2554402647
2554402662
2554402662
2554402662
2554402662
2554402662