use Time::HiRes qw( time );

my $time = time;
my ($s, $m, $h, $D, $M, $Y) = localtime($time);
my $ms = ($time - int($time)) * 1000;
[download]

Older versions of Time::HiRes on Windows returned low resolution values for time. This has been fixed in 1.53.