Select Code to Download

use Time::HiRes qw( time );

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