$ perl -wE'say $^T;say -M ".";sleep 1;say -M ".";$^T=time;say -M ".";undef*^T;$^T=1400000000.123;say -M "."'
1403502321
0.450798611111111111
0.450798611111111111
0.450810185185185185
0.450810185185185185