sub send_midi_bytes { 
  my $self = shift; 
   
  my $device = $self->midi_device; 
 
  my $stuff = pack('C*',  
                   (map {&SEQ_MIDIPUTC(), 
                         $_,  
                         $device, 
                         0 
                        } 
                    @_ 
                   ) 
                  ); 
 
  my $bytes = syswrite(SEQ_FH, $stuff); 
 
  if (not $bytes) { 
    die("Couldn't write to " 
        . $self->dev  
        . ": $!" 
       ); 
  } 
 
  return $bytes; 
}