use Date::Simple ();
    my $date  = Date::Simple->new('1972-01-17'); 
    ...