Help for this page
perl -MDateTime -e "@dtarg{qw(year month day hour minute second)}=spli +t/[\s:-]/,'2017-06-10 21:55:00';$dt=DateTime->new(%dtarg); print scal +ar localtime($dt->epoch)" Sat Jun 10 23:55:00 2017