You've got a while(1) loop that will never end. Someting like while($winmm->pos(1) < $winmm->length(1)) will likely work better.