#!perl #
# # Perl script 'rename.pl' to rename a file specified by $ARGV[0] (first # command-line argument) to a file specified by $ARGV[1] (second # argument). # # Syntax: # rename.pl "file1" "file2" # # ====================================================================== # Main program 'rename.pl': # ~~~~~~~~~~~~~~~~~~~~~~~~~ $FILE1=$ARGV[0]; $FILE2=$ARGV[1]; @ARGV=(); require 'go.pl'; &RENAME($FILE1,$FILE2); # ====================================================================== 1; #