#!/usr/bin/perl
#
#   gen_random_strings.pl  <num_strings> <min_length> <max_length> <alphabet>
#
my $num_strings = shift;
my $min_length  = shift;
my $max_length  = shift;
my $alphabet    = shift or die "Missing argument(s)!";

my $alphabet_len = length($alphabet);

while ($num_strings--) {
    my $num_chars = int(rand($max_length-$min_length+1))+$min_length;
    my $string = '';
    $string .= substr($alphabet, int(rand($alphabet_len)), 1) 
                  for 1 .. $num_chars;
    print $string, "\n";
}