perl如何实现beep功能

问题很简单，就是需要perl控制喇叭发出di的一声，就象c中的beep一样。首先，我试了print “\a”;的方式，结果表明，这个在

linux下可以很方便的实现翁鸣的东西,在windows下并不那么容易起作用。又试了下面的程序：

1
2
3
4
5

#!/usr/bin/perl -T
use strict;
$|=1;
print "\a";
exit 0;

把它保存为beep.pl后，在cmd当中执行：
perl -T beep.pl
可以在windows下实现翁鸣，但是它一用于程序当中让喇叭响一下就会让整个程序终止在那里，无法完成整个程序。
发现在windows下，使用Win32::Sound库可以很好的实现让喇叭出声。我们这么简单的一个要求，就有点杀鸡用牛刀的感觉了。
原代码如下：

1
2
3
4
5
6

#!/usr/bin/perl
use Win32::Sound;
 
Win32::Sound::Volume('100%');
Win32::Sound::Play("notify.wav");#notify.wav可以换成任意wav文件
Win32::Sound::Stop();