#!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;                                                               #