use Win32::Sound;
use Time::Hires qw(sleep);
use strict;
$|++;

Win32::Sound::Volume('100%');
while (1) {
	print ".";
    Win32::Sound::Play("SystemQuestion");
    Win32::Sound::Stop();
	sleep(30);
}