#!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; #