Как лучше всего получить миллисекунды эпохи в Perl?

В perl легко получить Epoch-Seconds (временную метку):

time

Но что с миллисекундами? Самый эффективный способ - время * 1000, но это не так точно, как я хотел бы. Любые полезные советы, кроме давно задокументированных @perldoc?