#!/usr/bin/perl
use warnings;
use strict;
use Fcntl;
require 'sys/soundcard.ph';

sysopen(SEQ_FH,'/dev/sequencer',O_WRONLY) or die $!;

while(1){
        for my $note (20,40,30,40,50){
        send_midi_bytes(0xc0,123); #cool patch sound 
        send_midi_bytes(0x90,$note,100);
    select(undef,undef,undef,1);
     }
}

sub send_midi_bytes {
  #print "@_\n"; 
   my $device = 1;
   my $stuff = pack('C*',
          (map {&SEQ_MIDIPUTC(), $_, $device,0 } @_ ) );

 my $bytes = syswrite(SEQ_FH, $stuff) or die $!;

  if (not $bytes) {
     die("Couldn't write to /dev/sequencer $!"
       );
 }
}