> I need to get the current date-time with milliseconds upto 5 places of
> precision.
>
> That is, 20080512T12094565266 => YYYY MM DD T HH mm SS ms-5 digits
>
> Here, 65266 is the milli-second with 5 places of precision.

>
>
> I tried with the module DateTime, but that does not give the
> milliseconds.
>
> use DateTime;
> my $dt = DateTime->now( time_zone => 'floating' );

C> perl -mDateTime -e "$dt=DateTime->now; print $dt->second"

C> perl -mDateTime -e "$dt=DateTime->now; print $dt->nanosecond"

>
>
> Any idea how this can be achieved in Perl?
>