#!/usr/bin/perl
# 
# Author: Peter Keel <killer@discordia.ch>
# Does l3enc for me. It nicely takes a big filelist as argument and even
# overrides that stupid "press n if you don't want to register".
#

die "Usage: $0 wav-files\n" unless($ARGV[0]);

chop ( $PWD = `pwd`);
$base_dir = $PWD;

foreach $file_name (@ARGV)
    {
	print STDERR "Processing '$file_name'\n";
	$new_file = $file_name;
	$new_file =~ s/.wav\b/.mp3/i;
        system ("echo n | l3enc $file_name $new_file");
    }