#!/usr/bin/perl
# Volume/bass/treble-adjusting script for switching between headphones and no headphones.
#
# Usage: ./headphones <on|off>
#
# Matt Sparks, 20060922
use strict;


my $arg=lc $ARGV[0];

if ($arg eq "yes" || $arg eq "on") {
    print `aumix -t 65 -b 50 -w 45`;
}
else {
    print `aumix -b 15 -t 30 -w 30`;
}

print `aumix -bq -tq -wq`;