#!/usr/bin/perl 
use Getopt::Long ();

my ($opt_debug, $opt_verb, $opt_help, $opt_pages) = (0) x 4;
my $opt_color = '';
my @opt_file  = ();

#$opt = param('OPT');

$ok = Getopt::Long::GetOptions(
		'debug!'  => \$opt_debug, 
		'verbose+'=> \$opt_verb , 
		'help'    => \$opt_help , 
		'pages=i' => \$opt_pages, 
		'color=s' => \$opt_color,
		'file=s'  => \@opt_file );

print	"\t-debug   = $opt_debug\n",
	"\t-verbose = $opt_verb\n",
	"\t-help    = $opt_help\n",
	"\t-pages   = $opt_pages\n",
	"\t-color   = $opt_color\n",
	"\t-file    = ", join(',',@opt_file),"\n";

Usage() if !$ok || $opt_help;

#===============================================================================
sub Usage() {
#===============================================================================
print <<EOF;
Usage: $0 [options] [filename]

This program does following .....

Options are: 
	-help		Print this help message.
	-debug		Turn on debugging mode. This option is negatable.
			i.e accepts --nodebug
	-verbose	Turn on verbose mode. This option is incremental.
			i.e can appear multiple times. 
			In this case Getopt returns count of appearances
			instead of 1
	-pages		Number of pages to print. Numeric value
	-color		Use this color. String value
	-file		Input file name(s). Accepts multiple values.

$0 -help -debug -color=blue -pages=5 -file=/usr/bin/ls -file=/usr/lib/gcc
EOF
}