my $date = $dt->dmy;
$date =~ tr/-/./;