#!/usr/bin/perl

print "Scanning for MP3's...\n";
while(1)
{
    sleep 10;
    opendir(DIR,".");
    @d=grep {/\.trk$/} ( readdir(DIR) );
    closedir(DIR);
    
    if(@d) {
	$f=readlink $d[0];
	print "Reencoding $f...\n";
	system "lame -b 128 $f";
	unlink $f;
	unlink $d[0];
    }
}