my ($old_name, $new_name);

print "Alter Dateiname?\n>>> ";
chomp ($old_name = <>);

print "Neuer Dateiname?\n>>> ";
chomp ($new_name = <>);

unless (-e "$new_name"){
	rename ($old_name, $new_name);
}
else{
	print "'$new_name' existiert schon!\a\n";
}

<>;