#!/usr/bin/perl

# rename
# from the perl programming book, p.309
# 27 November 1994
# to rename all files to lowercase, use this syntax
# rename 'tr/A-Z/a-z/' *

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