use strict;
use YAML;
use YAML::Dumper;
use YAML::Loader;

use DateTime;

my $dt = DateTime->new(
    year   => 1964,
    month  => 10,
    day    => 16,
    hour   => 16,
    minute => 12,
    second => 47,
    nanosecond => 500000000,
    time_zone => 'Asia/Taipei',
);

my $dumper = YAML::Dumper->new;
my $stream =  $dumper->dump($dt);

my $loader = YAML::Loader->new;
my $new_dt = $loader->load($stream);

print $new_dt->ymd;
##</code><code>##

1964-10-16