#!/usr/local/bin/perl
# Jaime Prilusky, 2003

  print "Generate how many numbers? ";
  my $numToGenerate = <STDIN>; chomp($numToGenerate);
  
  print "Min desired value? ";
  my $min = <STDIN>; chomp($min);

  print "Max desired value? ";
  my $max = <STDIN>; chomp($max);

  foreach my $i ( 1 .. $numToGenerate) {
    my $randomNumber = rand ($max - $min) + $min;
    print $randomNumber,"\n";
  }