#!/usr/bin/perl -w

($op = shift) || die "Usage: rename perlexpr [filenames]\n";


for (@ARGV)
{
	$was=$_;
	eval $op;
	die $@ if $@;
	rename($was,$_) unless $was eq $_;
}