use strict;
use warnings FATAL => 'all';
use Time::Piece;
use Data::Dumper;

my $in_date = '01/02/2003 01:02:03';
my $t = Time::Piece->strptime($in_date, '%m/%d/%Y %H:%M:%S')->strftime('%Y-%m-%d %H:%M');

print Dumper $t;