use Time::Piece;

print localtime
   ->strptime('2003-08-01','%Y-%m-%d')
   ->strftime('%m%d%y')
;