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";