Select Code to Download

use strict;
use warnings FATAL => 'all';
...
my $t = Time::Piece->strptime($in_date, '%m/%d/%Y %H:%M:%S')->strftime
+('%Y-%m-%d %H:%M');

print Dumper $t;