我希望Perl以下列格式显示当前日期和时间：
2010-02-11 13:12:34.87876
我写了这段代码：
use Time::localtime;
my $tm = localtime;
printf("It is now %04d-%02d-%02d %02d:%02d:%02d\n",$tm->year+1900,($tm->mon)+1,$tm->mday,$tm->hour,$tm->min,$tm->sec);
得到了：
2011-11-17 17:22:59
我不知道如何在输出中获得剩余的.87876.有人可以帮帮我吗？
解决方法
use DateTime::HiRes qw();
DateTime::HiRes->now(time_zone => 'local')->strftime('%F %T.%5N')
# returns '2011-11-17 17:42:42.21719'