use Date::Manip::Date;
my $date = new Date::Manip::Date;
$date->config("setdate","now,UTC");
$date->parse('1988-12-13');
print $date->printf('%O -> %s');