#!perl                                                      #<HTML><PRE>
#
# Perl script 'append.pl' to append a file specified by $ARGV[1] (second
# command-line argument) to a file specified by $ARGV[0] (first argument)
# ======================================================================
# Main program 'append.pl':
# ~~~~~~~~~~~~~~~~~~~~~~~~~
  $FILE1=$ARGV[0];
  $FILE2=$ARGV[1];
  @ARGV=();
  require 'go.pl';
  &APPEND($FILE1,$FILE2);
# ======================================================================
1;                                                               #</PRE>
