#!perl #
#
# Perl script 'echo.pl' to copy the first command-line argument to the
# file specified by the second command-line argument.  Specify "-" as
# the second command-line argument to copy the first command-line
# argument on the standard output (mostly the screen).
#
# Syntax:
#   echo.pl "text" ">file"
#   echo.pl "text" ">>file"
#   echo.pl "text" "-"
# 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;                                                               #