in reply to music playlist weighted by rating
Somewhat similar for xmms: IMMS (works pretty neat, although it's a non-perl solution).