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");

my $date = $dt->dmy;
$date =~ tr/-/./;
$date = substr($date,0,-4);
print $date;