use strict; use warnings; use feature 'say';
use DateTime::Format::Flexible;
use Test::More tests => 2;

my $wanted = '2017-02-20 09:30:53';

for my $string ( <DATA> ) {
    chomp $string;
    my $dt = DateTime::Format::Flexible->parse_datetime( $string );
    is( $dt->strftime('%F %T'), $wanted, "with >$string<" );
}

__DATA__
Mon Feb 20 09:30:53 2017
2017-02-20T09:30:53.177000

##</code><code>##

1..2
ok 1 - with >Mon Feb 20 09:30:53 2017<
ok 2 - with >2017-02-20T09:30:53.177000<