#!perl #
# # Perl script 'copy.pl' to copy a file specified by $ARGV[0] (first # command-line argument) to a file specified by $ARGV[1] (second # argument). It does not work correctly with binary data under MS DOS. # Specify "-" as the second command-line argument to copy the file # on the standard output (mostly the screen). # # Syntax: # copy.pl "file1" "file2" # copy.pl "file1" "-" # # ====================================================================== # Main program 'copy.pl': # ~~~~~~~~~~~~~~~~~~~~~~~ $FILE1=$ARGV[0]; $FILE2=$ARGV[1]; @ARGV=(); require 'go.pl'; ©($FILE1,$FILE2); # ====================================================================== 1; #