Let us try to write a simple Drum Machine in Perl using MIDI and Tkx as a graphical toolkit.
1. 47 tools, 4 can be used simultaneously.
2. Keyboard control.
3. Volume control.
4. Control of BPM from 60 to 600 beats per a minute.
General MIDI provides a special channel under number 10 for the percussion instruments.
The required numbers of notes can be found on this webpage.
We need the modules: Win32API:: MIDI and Tkx. The last you have to be installed, if you are using ActivePerl.