#!/usr/bin/perl

$ls = `ls *.mp3`;

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

foreach $mp3 (@files) {
	$ogg = $mp3;
	$ogg =~ s/\.mp3/\.ogg/;
	print "Transcoding $mp3 to $ogg\n";
	system("lame --quiet --decode \"$mp3\" - | oggenc - -o\"$ogg\"");
}