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]++;
}