use strict;
use warnings;
use Math::Random::MT qw();

package Range;

sub new {
    my ($class, %params) = @_;

    return bless \%params, $class;
}

sub rrand {
    my ($self) = @_;
    my $num = Math::Random::MT::rand ($self->{HI} - $self->{LO}) + $self->{LO};

    $num = int $num if $self->{TYPE} eq 'INTEGER';
    return $num;
}


package main;

my $rng = Range->new (
    LO   => 10000,
    HI   => 99999,
    TYPE => 'INTEGER'
);
my $A = $rng->rrand ();
my $B = $rng->rrand ();
my $str = "$A $B";

print "perl version $]\n";
print "Math::Random::MT version: $Math::Random::MT::VERSION\n";
print $str;