#!/usr/local/bin/perl
# -*-perl-*-

require "getopts.pl";

$usage = "Usage: $0 [-c -f <file>] some_more_arguments
   -c         output to STDOUT
   -f <file>  output to file 
   -v         verbose
   -h	      usage
";

&Getopts('hcvf:') || die $usage;

if ($opt_h) {
   die $usage;
}
if ($opt_v ) {
   $debug = 1;
}

__END__

put comments here...
