#!/usr/local/bin/perl

# Abgewandeltes /home/c/czyborra/bin/ren zum Umbenennen von
# MS-DOS-Dateinamen in Kleinbuchstaben

for (@ARGV) 
{
	$old = $_; y/A-Z/a-z/; 
	next if $_ eq $old;
	print "$old -> $_\n";
	if (-e $_)
	{
		print "Are you sure want to overwrite $_? ";
		next if <STDIN> !~ /^y/i;
	}
	rename ($old, $_) || die "rename: $!\n"; 
}