#!/usr/bin/perl -w
use strict;

sub random_integer {
  my ($low, $high) = @_;
  my $range = $high - $low + 1;
  my $random_fraction_of_range = rand($range);
  return $low + int($random_fraction_of_range);
}                                  
