Select Code to Download

use Time::HiRes 'sleep';
use Win32::MediaPlayer;
sub sound_play {
...
    my $pos = 0;
    (-$pos + ($pos = $winmm->pos)) or return while sleep 0.1;
}