О перекодировании имён файлов

Чё-то не я нашёл готового метода переименования файлов меж разными кодировками. Пришлось написать скрипт:

#!/usr/bin/perl -w

use strict;
use Encode 'from_to';

foreach my $filename (glob '*')	{
	my $old_filename = $filename;
	from_to($filename, 'UTF-8', 'koi8-r');
	if ($filename ne $old_filename)	{
		printf "%s\t=> %s\n", $old_filename, $filename;
		rename($old_filename, $filename) or warn "Failed!\n";
	}
	else {
		print "$filename - names are equal\n", ;
	}
} # foreach

Доработка напильником

Есть свой плюс в растпространении софта в исходниках: есть шанс доработать напильником. Вот сейчас как раз выдался случай: после смены плеера ljKlient потерял способность определять музыку. Пришлось взять напильник и научить: ( diff ljkkdeeventeditor.py.ORIG ljkkdeeventeditor.py )