use strict;

use Win32::MIDI;

my $midi_obj = Win32::MIDI->new();

$midi_obj->openDevice(1);


my $note64 = $midi_obj->value_of('note',64);

print("(character) Note Value for 64 is $note64\n");


$midi_obj->play_note('B#',2,127,1,1,4) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
$midi_obj->play_note('100',2.5,127,1,1) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();