Trouble with time

[Rafael Morales]

Hi list:

I have this:

#!/usr/bin/perl
 use strict;
 use warnings;
 use DateTime;
 use Time::HiRes qw( time );

my $dt = DateTime->from_epoch( epoch => time() );
my $time = $dt->strftime( '%Y-%m-%d %H:%M:%S.%3N' );

while ( $time ) {
   print "$time\n";
}


And this is this the outpu:

2006-11-28 08:31:06.863
2006-11-28 08:31:06.863
2006-11-28 08:31:06.863
2006-11-28 08:31:06.863
2006-11-28 08:31:06.863
2006-11-28 08:31:06.863

Why the seconds and milliseconds do not change ?????? How can I do it to
work fine ???

Regards !!!