use strict;
use warnings;

use Time::Piece;
use Test::More tests => 1;

my $date = '3-15-1932';
my $want = '1932-03-15';

my $have = Time::Piece->strptime ($date, '%m-%d-%Y')->date;
is $have, $want;