'di';
'ig00';
#
-# $Header: rename,v 3.0.1.2 90/08/09 03:17:57 lwall Locked $
+# $RCSfile: rename,v $$Revision: 4.1 $$Date: 92/08/07 17:20:30 $
#
# $Log: rename,v $
-# 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) {