print 'Total Length : '.$winmm- length(1),$/;
while(1) {
          sleep 1;
          print 'Now Position: '.$winmm- pos(1)."\r";
    }
	$winmm- close;
print " \n\n\nTrack finished! \n\n\n";