Guess this song...

song2(3);

sub song2 {
  my $octave = shift;

  my $num = 0;  

  while ($num < 10) {
      sleep(.5);
      $midi_obj->play_note('D', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('F', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('D', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('G', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('D', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('F', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      $midi_obj->play_note('D', ".25", 127, 1, 1, $octave) || print $m
+idi_obj->error() . "\n" and $midi_obj->reset_error();
      sleep(2);
    $num++;
  }
}
[download]

Send message to get answer...

-----------------------
Billy S.
Slinar Hardtail - Hand of Dane
Datal Ephialtes - Guildless
RallosZek.Net Admin/WebMaster

perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat!
+\n"; } else { print "Thats a dog\n"; } print "\n";'
[download]