use strict;
use warnings;
use DateTime;
use DateTime::Format::Strptime;
my $val = "2011-11-11 14:30:00.999981";
my $format = new DateTime::Format::Strptime(
pattern => '%F %T.%N',
time_zone => 'GMT',
);
my $date = $format->parse_datetime($val);
print $date->strftime("%F %T.%3N %Z")."\n";
####
2011-11-11 14:30:00.1000 UTC
##
##
2011-11-11 14:30:01.000 UTC