Select Code to Download

"Couldn't write to /dev/sequencer, bad file descriptor
at (....)Realtime.pm line 201.

sub send_midi_bytes { 
  my $self = shift; 
...
 
  return $bytes; 
}

#!/usr/bin/perl
use warnings;
...
select(undef,undef,undef, 0.10);
}