#!/usr/bin/perl

$ls = `ls *.mp3`;

@files = split("\n",$ls);

foreach $mp3 (@files) {
	print "Decoding $mp3 to $mp3.wav\n";
	system("lame --quiet --decode \"$mp3\"");
}