use strict; use warnings; use feature 'say';
use DateTime::Format::Strptime;

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;