use mapcar;
print join '-', mapcar {sprintf "%02d",pop()+pop}
    [(localtime())[5,4,3]],[1900,1,0];