use Pod::Usage 'pod2usage';
BEGIN {
  my $max_valid_args = <FILL IN FOR YOUR PROGRAM> ;
  my $min_valid_args = <FILL IN FOR YOUR PROGRAM> ;
  my( $argC,$argN ) = (0 + @ARGV , $ARGV[$#ARGV] );
  if( grep { $_ eq lc($argN) or $_ eq substr lc($argN)=>1 }
      qw/ -h -u -man -help -usage / )    { pod2usage(-verbose => 2) }
  elsif ($argC < $min_valid_args or $argC > $max_valid_args )
                                                     { pod2usage(1) }
}