#!/usr/bin/perl
use strict;
use warnings;

use MIDI::Drummer::Tiny;

my $d = MIDI::Drummer::Tiny->new(
    file      => $0 . '.mid',
    bpm       => 100,
    signature => '4/4',
    bars      => 8,
);

$d->count_in(1);

$d->metronome;

$d->write;
