simplest MIDI file writer

midi.pl

#!/usr/bin/env perl
use 5.036;

my $ch = 0;
my $division = 960;
my $note_off = 0x80;
my $note_on = 0x90;

my $track = '';
$track .= pack('wC3', 23, $note_on + $ch, 69, 126);
$track .= pack('wC3', 5737, $note_off + $ch, 69, 64);
$track .= pack('wC2w', 0, 0xFF, 0x2F, 0);

binmode \*STDOUT;
print pack('NNnnn', 0x4D546864, 6, 0, 1, $division);
print pack('NN', 0x4D54726B, length $track);
print $track;