#!/usr/local/bin/perl

# Tool zum Umbenennen von Files

$rename = shift || die "Usage: $0 s/old/new/ file ...";

eval q¶

    for (@ARGV) { $old = $_; ¶ . $rename . q¶;
		  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"; }
¶