Here is what is shown for this in the synopsis for Win32::MediaPlayer.

    while(1) {
          sleep 1;
          print 'Now Position: '.$winmm->pos(1)."\r";   # Show now tim
+e.
    };
[download]

To break out of the while loop you could do this:

Update: In order to get the print statement inside the while loop to work I had to add $| = 1; at the top of the program.