#!/usr/bin/perl -w

require 'ioctl.ph';
require 'linux/soundcard.ph';

my $data = 0;

open MIXR, "</dev/mixer" || die "Can't open mixer!\n";
ioctl(MIXR, &MIXER_READ(0), $data) || die "Can't ioctl!\n";
close MIXR;
print "data: $data\n";

##</code><code>##

eval 'sub SEQ_PITCHBEND {
	local($dev, $voice, $value) = @_;
		eval q( &SEQ_V2_X_CONTROL($dev, $voice,  &CTRL_PITCH_BENDER, $value) );
}' unless defined(&SEQ_PITCHBEND);