#!/usr/local/bin/perl
## Time-stamp: "2000-12-02 12:28:59 MST" ##

use MIDI::Simple;
new_score;
patch_change 1, 8;  # set Channel 1 to Patch 8 = Celesta

noop c1, f, o5;  # Setup

# Now play
n qn, Cs;    n F;   n Ds;  n hn, Gs_d1;
n qn, Cs;    n Ds;  n F;   n hn, Cs;
n qn, F;     n Cs;  n Ds;  n hn, Gs_d1;
n qn, Gs_d1; n Ds;  n F;   n hn, Cs;


# And then write to STDOUT with appropriate MIME header
binmode(STDOUT);
print "Content-type: audio/midi\n\n";
Self()->make_opus->write_to_handle(*STDOUT);
exit;