#! /usr/local/bin/perl
# This script is directly from O'Reilly and Associates Inc.'s "Programming Perl"
# Larry Wall and Randal L. Schwartz, p.312.

# usage: rename perlexpr [files]

($op = shift) || die " usage: rename perlexpr [files]\n" ;
if (!@ARGV) {
   @ARGV = <STDIN>;
   chop(@ARGV);
}
for (@ARGV) {
   $was =$_;
   eval $op;
   die $@ if $@;
   rename($was,$_) unless $was eq $_;
}