#!/usr/bin/env perl
use strict;
use Audio::NoiseGen ':all';
Audio::NoiseGen::init();
play( gen =>
envelope(attack => 0.2, sustain => 14.5, decay => 0.2, gen =>
combine(gens => [
segment(notes => '
E D C D
E E E R
D D D R
E E E R
E D C D
E E E/2 E
D D E D C
'),
segment(notes => 'A2 R R R'),
segment(notes => 'C3/2 E3/4 E3/4 C3/2 F3 R'),
]),
),
);