use Time::Format qw(%time);
print "$time{'yyyymmddhhmmss.mmm'}\n";