#!c:/perl/bin/perl.exe -w

package aleatorio;
sub geraAleatorio
{
	my ($self, $min, $max) = @_; 

	$random = int(rand($max-$min)) + $min;

   return $random;
}
1;