#!perl                                                      #<HTML><PRE>
#
# Perl script 'echo.pl' to copy the first command-line argument to the
# file specified by the second command-line argument.
#
# Syntax:
#   echo.pl "text" ">file"
#   echo.pl "text" ">>file"
# Note that there no space may precede ">".
#
# ======================================================================
# Main program 'echo.pl':
# ~~~~~~~~~~~~~~~~~~~~~~~
  $DATA=$ARGV[0];
  $FILE=$ARGV[1];
  @ARGV=();
  require 'go.pl';
  &ECHO($FILE,$DATA);
# ======================================================================
1;                                                               #</PRE>
