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