#!/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";