#!/usr/bin/perl
use Fcntl; #The Module
use strict;
use Math::Trig;

my $count=10; # Number of records required. 

my $minlength=3;   
my $maxlength=6; # max length of the record - will be specified by user

my $rlength;

my $cnt=1;

while ($cnt <= $count) 
{
	my $newvar;
	my @vchars=('a'..'z','A'..'Z',0..9);
	$rlength=$minlength+=int(rand($maxlength));
	print "rlength is $rlength\n";
while(length($newvar) < $rlength) 
{
	my $char=$vchars[int(rand($#vchars))];
	$newvar.=$char;	
}
$cnt++
}