#!perl #
#
# Perl script 'del.pl' to delete a file specified by $ARGV[0] (first
# command-line argument).
# ======================================================================
# Main program 'del.pl':
# ~~~~~~~~~~~~~~~~~~~~~~
  $FILE=$ARGV[0];
  @ARGV=();
  require 'go.pl';
  &DEL($FILE);
# ======================================================================
1;                                                               #