#!perl #
#
# Perl script 'append.pl' to append the file specified by the second
# command-line argument to the file specified by the first command-line
# argument. It does not work correctly with binary data under MS DOS.
#
# Syntax:
#   append.pl "file1" "file2"
# File "file2" will be appended to the file "file1".
#
# ======================================================================
# Main program 'append.pl':
# ~~~~~~~~~~~~~~~~~~~~~~~~~
  $FILE1=$ARGV[0];
  $FILE2=$ARGV[1];
  @ARGV=();
  require 'go.pl';
  &APPEND($FILE1,$FILE2);
# ======================================================================
1;                                                               #