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

	# print number of available (writing) devices
	
print $midi_obj->numDevices() . "\n";

	# open a device

$midi_obj->openDevice(0);

	# set default channel

$midi_obj->cur_channel(1);

	# play a note by absolute value (numeric)
	# middle C - 60
	# note,dur,velocity
	
$midi_obj->play_note(60,2.5,127) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();