#!/usr/local/bin/perl

opendir (CANTON, "/www/Lexis/Canton/sound");
while ($_ = readdir(CANTON)) {
	if (/^(\w+\.WAV)$/) {
		$old = $1;
		rename ($old, "\L$old");
	}
}
close(CANTON);
