¿Cuál es la mejor manera de obtener Epoch milisegundos en Perl?

Question

Es fácil de conseguir época segundos (fecha y hora) en Perl:

time 

Pero qué pasa con milisegundos? La forma más efectiva parece ser el tiempo * 1000, pero eso no es tan preciso como yo quiero que sea. ¿Alguna buena pista a excepción de los largos términos documentados @perldoc?

Answer 1

El módulo Time::HiRes tiene una gota en el reemplazo para el tiempo

$ perl -E 'say time' 
1298827929 
$ perl -MTime::HiRes=time -E 'say time' 
1298827932.67446 

Usted puede read more in the perl FAQ

perldoc -q "How can I measure time under a second" 

Answer 2

Un ejemplo del mundo real sería:

use Time::HiRes qw(gettimeofday); 
print gettimeofday; 

Answer 3

perl -MTime::HiRes=time -e 'print time;' 

Para Perl: v5.8.4 construido para SunOS (sun4-solaris-64int), oylenshpeegul's answer necesita ser modificado.