or download this
$ perl -MTime::Piece -E 'say $Time::Piece::VERSION'
1.27
...
$ perl -MPOSIX=strftime -MTime::Piece -E ' say strftime q{%FT%T}, loca
+ltime; Time::Piece->strptime( strftime(q{%FT%T}, localtime), q{%FT%T}
+);'
2015-04-29T04:18:23
Error parsing time at /Users/ken/perl5/perlbrew/perls/perl-5.20.2t/lib
+/5.20.2/darwin-thread-multi-2level/Time/Piece.pm line 469.