eg/rename

   1 #!/usr/bin/perl
   2
   3 ($op = shift) || die "Usage: rename perlexpr [filenames]\n";
   4 if ($#ARGV < 0) {
   5     @ARGV = <stdin>;
   6     chop(@ARGV);
   7 }
   8 for (@ARGV) {
   9     $was = $_;
  10     eval $op;
  11     die $@ if $@;
  12     rename($was,$_) unless $was eq $_;
  13 }