use Date::Manip;

use strict;
use warnings;

my $date=ParseDate("16May07")
print UnixDate($date,"%m-%d-%Y");