#--------------------------------------------------------------------------
	# handle the command line arguments
	#
	if ( $#ARGV == -1)
	{
		&usage;
		exit 0;
	}

	while (@ARGV) 
	{
		$argument = shift(@ARGV);
	
		if ($argument eq "-HELP"  ||  $argument eq "-H") 
		{
		    &usage;
		    exit 0;
		}
		elsif ($argument eq "-file"        ||  $argument eq "-f") 
		{
			$file = shift(@ARGV);
		}
		elsif ($argument eq "-verbose"     ||  $argument eq "-v") 
		{
			# input data come live from the specified htget output file. Faster.
		  $verbose = 1;
		}
		elsif ($argument eq "-DEBUG") 
		{
			$DEBUG_LEVEL = shift(@ARGV);
		}
		elsif ($argument eq "-DOCUMENT"  ||  $argument eq "-D") 
		{
		    &document;
		    exit 0;
		}
		elsif ($argument eq "-ABOUT"  ||  $argument eq "-A") 
		{
		    &about;
		    exit 0;
		}
		elsif ($argument eq "-REL_NOTES"  ||  $argument eq "-R") 
		{
		    &rel_notes;
		    exit 0;
		}
		else
		{
			print "ERROR: unknown argument '$argument'.\n";
	    &usage;
	    exit 0;
		}
	}

handle the command line arguments

Perl