vimrename.pl

#!/usr/bin/perl
use File::Temp qw(tempfile);
opendir(D, ".");
@files = sort readdir(D);;
closedir(D);
($fh, $fn) = tempfile();
for $d(@files)
{
	print $fh "$d\n";
}
system("vim", $fn);
open $f, $fn;
while($n = <$f>)
{
	chop $n;
	$o = shift @files;
	print "'$o' => '$n'\n";
	rename $o, $n;
}