#!/usr/bin/perl

use v5.10;
use strict;
use warnings;

use Data::Dumper;
use DateTime::Format::Strptime;

$Data::Dumper::Sortkeys = 1;

my $parser = DateTime::Format::Strptime->new(pattern => '%m/%d/%Y', on_error => 'croak');
my $date = '05/10/1969';
my $dt = $parser->parse_datetime($date);
say $dt->ymd;
say $dt->strftime('%Y-%m-%d');