Szerintem pedig segit, ugyanis a `date` egy soremelest is berak a $yearmonth vegere (amugy enyhen tulzas meghivni backtick-kel a date-et, van ennel jobb megoldas is, perl modulok, time() es tarsai).