while(1) { sleep 1; print 'Now Position: '.$winmm->pos(1)."\r"; # Show now time. };