# $RCSfile: rename,v $$Revision: 4.1 $$Date: 92/08/07 17:20:30 $
#
# $Log: rename,v $
-# Revision 4.1 92/08/07 17:20:30 lwall
-# Stage 6 Snapshot
-#
-# Revision 4.0 91/03/20 01:11:53 lwall
-# 4.0 baseline.
-#
-# Revision 3.0.1.2 90/08/09 03:17:57 lwall
-# patch19: added man page for relink and rename
-#
($op = shift) || die "Usage: rename perlexpr [filenames]\n";
if (!@ARGV) {