use strict;
use warnings;

use DateTime;
use DateTime::Format::Strptime qw(strptime);

my $dt = strptime("%Y-%m-%d %H:%M:%S", "2010-10-04 19:34:10");

print $dt->ymd;