use Time::Piece;

print localtime->strptime(20030713,'%Y%m%d')->strftime('%Y-%m-%d');