#!/usr/bin/perl
 
use Getopt::Std;
 
my %opt;
getopts( 'afqcrh', \%opt ) or usage();
usage() if ($opt{h} or !@ARGV);
 
sub usage() {
	(my $progName = $0) =~ s#.*[/\\]##;
	print <<EODOC;
TITLE
 
INFO
 
Usage:
    $progName [-a | -f | -q] [-r] [-c] [-h] [files]
 
Options:
  -a Stuff
  -f Stuff
  -q Stuff
 
EODOC
	exit;
}