Select Code to Download

my $people = 10;
my $prizes = 8;
my $draws = 22*2;

our $people = (shift or 10);
our $prizes = (shift or 8);
our $draws = (shift or 22*2);

our $people = 10;
our $prizes = 8;
...

    # etc.
}

use Getopt::Declare;
our $PEOPLE_OPT = '-p';
...

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

    for (0..($draws-1)){
    local $_ = $seq[$_];

    for (@seq[0..$draws-1]){

    for my $draw (@seq[0..$draws-1]){

    my $winstring = $b[$j].' '.$i[$j].' '.$n[$j].'
+ '.$g[$j].' '.$o[$j]."\n";

    my $winstring = "$b[$j] $i[$j] $n[$j] $g[$j] $o[$j]\n";

sub getRand(){
    while (1){
...
    unless ($temp = 0) {return $temp; exit}
    }
}

    my $temp = int(rand(100)+1;

    {return $temp; exit}

    &doInit;
    &mkCards;

    doInit();
    mkCards();

    $status = getRand + 17;

    if (m,([01]{10})\n((?:(?:\w\-\d+[\s\n]){5}){5}
+),)

    local *getNewDrawBall = sub { #workaround for 
+scoping inner subroutine with typeglob - ugly Per
...
+int "DEBUGdraw: $temp\n";
        }
    };

{ # closure for getNewDrawBall, getNewNonDrawBall
  my %seen;
...
    # stuff here
  }
} # end closure for getNewDrawBall, getNewNonDrawBall

    for my $k (1..$losers)
    {
...
        #SPOIL CARD HERE
        # etc...
    }

    local *coinFlip = sub {
        my $z = &getRand;
        my $coin = int($z)% 2;
        return $coin;
    };