#!/usr/bin/perl -T -w

use strict ;
use warnings ;
use Carp ;

=head1 NAME 

 $> script - 

=head1 USAGE

 $> script command switch switch ...


=head1 OPTIONS


=head1 EXIT STATUS


=head1 AUTHOR

#MODIFY_ME_BEFORE_FIRST_RUN

	your_name_here
	CPAN ID: 
	mailto:@cpan.org

=cut

#------------------------------------------------------------------------------------------------------------------------

use Getopt::Long ;
use IO::Select ;
use English qw( -no_match_vars ) ;

our $VERSION = '0.01' ;

#------------------------------------------------------------------------------------------------------------------------

my @extra_options ;
my $io_select = IO::Select->new(\*STDIN) ;

if($io_select->can_read(0))
	{
	@extra_options = <STDIN> ; ## no critic (InputOutput::ProhibitExplicitStdin)
	chomp @extra_options ;
	}
	
my @command_and_options = (@ARGV, @extra_options) ;

die 'Error parsing options!'unless 
	GetOptions
		(
		'h|help' => \&display_help, 
		
		'dump_options' => 
			sub 
				{
				print join "\n", map {"-$_"} 
					qw(
					help
					) ;
				exit(0) ;
				},
		) ;
	

display_help() unless @command_and_options ;

#------------------------------------------------------------------------------------------------------------------------

sub display_help
{

#~ =head2 display_help()

#~ I<Arguments> - None

#~ I<Returns> - Nothing

#~ I<Exceptions> - exits with status code B<1>

#~ =cut

my ($this_script) = ($PROGRAM_NAME =~m/(.*)/sxm ) ;

print {*STDERR} `perldoc $this_script`  or croak 'Error: Can\'t display help!' ; ## no critic (InputOutput::ProhibitBacktickOperators)
exit(1) ;
}