mary(3);

sub mary {
  my $octave = shift;
  
  $midi_obj->play_note('E', ".5", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('D', ".25", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('C', ".5", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('D', ".5", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('E', ".5", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('E', ".5", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('E', ".75", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('D', ".5", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('D', ".5", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('D', ".5", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('E', ".5", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('G', ".5", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
  $midi_obj->play_note('G', ".5", 127, 1, 1, $octave) || print $midi_obj->error() . "\n" and $midi_obj->reset_error();
}