or download this
perl -MPOSIX=strftime -MTime::Piece -E ' say strftime q{%FT%T}, localt
+ime; Time::Piece->strptime( strftime(q{%FT%T}, localtime), q{%FT%T});
+'
2015-04-28T14:10:47
Error parsing time at /usr/local/lib64/perl5/Time/Piece.pm line 469.