use Getopt::Declare;
our $PEOPLE_OPT = '-p';
our $PRIZES_OPT = '-z';
our $DRAWS_OPT  = '-d';
our $PEOPLE_DEFAULT = 10;
our $PRIZES_DEFAULT = 8;
our $DRAWS_DEFAULT  = 22*2;
our $people = $PEOPLE_DEFAULT;
our $prizes = $PRIZES_DEFAULT;
our $draws  = $DRAWS_DEFAULT;

my $option_spec = qq{
    $0 does some magic for BS Bingo, yada, yada, yada

    Options:

        $PEOPLE_OPT <people>	Sets number of people (default is $PEOPLE_DEFAULT)
            { 
              reject ($people < 2) or ($people > 1e6);
              \$::people = $people;
            }

        $PRIZES_OPT <prizes>	Sets number of prizes (default is $PRIZES_DEFAULT)
            { 
              reject ($prizes < 2) or ($prizes > 1e6);
              \$::prizes = $prizes ;
            }

        $DRAWS_OPT <draws>	Sets number of draws (default is $DRAWS_DEFAULT)
            { 
              reject ($draws < 2) or ($draws > 1e6);
              \$::draws = $draws ;
            }
}

my $options = Getopt::Declare->new( $option_spec )
  or die "\n**** Error processing command line options, terminating $0\n";