#!/usr/bin/perl
################
# volume funky #
################

print "Number of vagues :  ";
chomp($vaguen = <STDIN>);
for ($i = 0; $i < $vaguen; $i++)  { 
	system("mixerctl outputs.headphones=131,131");
	for ($volume = 131; $volume < 255; $volume++) {
		system("mixerctl outputs.headphones=$volume");
		print $volume;
	}
	for ($volume = 255; $volume > 131; $volume--) {
		print $volume;
		system("mixerctl outputs.headphones=$volume");
	}	
}