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