Help for this page

Select Code to Download


  1. or download this
    use Getopt::Long;  # or Getopt::Std, which might be easier to grok.
    
  2. or download this
    my @thresh  = ( 1000, 4000, 7000, 10000 );
    my @bins;
    ...
        }
        $bins[$i]++;
    }
    
  3. or download this
    my @thresh  = ( 1000, 4000, 7000, 10000 );
    my @bins;
    ...
        }
        $bins[$i]++;
    }