P:\test>perl -MTime::HiRes=time -wle"print time for 1 .. 10"
1118814859.12534
1118814859.12551
1118814859.12558
1118814859.12566
1118814859.12573
1118814859.1258
1118814859.12587
1118814859.12594
1118814859.12602
1118814859.12609