PerlのWin32::MIDIモジュールを使って「未知との遭遇」のメロディを演奏する

PerlのWin32::MIDIモジュールを使って「未知との遭遇」のメロディを演奏してみましょう。
Windows XPのActivePerlで動作確認しました。
インストール
コマンドラインから以下のように入力します。

ppm install Win32::MIDI

スクリプト
以下のようなcontact.plというスクリプトを用意します。

use strict;
use warnings;
use Win32::MIDI;

my $dur = 1;
my $vel = 127;
my $m = Win32::MIDI->new();
$m->openDevice(0);
$m->cur_octave(4);
$m->play_note('D', $dur, $vel);
$m->play_note('E', $dur, $vel);
$m->play_note('C', $dur, $vel);
$m->cur_octave(3);
$m->play_note('C', $dur, $vel);
$m->play_note('G', $dur * 3, $vel);
$m->closeDevice();

実行

perl contact.pl

詳細
詳しい使い方は、perldoc Win32::MIDIで参照できます。