#!/usr/bin/perl
foreach $argnum (0 .. $#ARGV) {
   $tmp = $ARGV[$argnum];
   $ARGV[$argnum] =~ s/\.mp3/\.wav/g;
   print "$tmp\n";
   system("lame --decode \"$tmp\" \"$ARGV[$argnum]\"");
}