#!/usr/bin/perl

use Modern::Perl '2015';

use DateTime;
use Time::ParseDate;

my $adate = "2017-01-29 11:30:07.370";

my $epoch_seconds = parsedate($adate, ZONE => "UTC");
my $dt = DateTime->from_epoch(epoch => $epoch_seconds);

say $dt->strftime("%m-%d-%Y %H:%M");