#!perl -slw
use Math::GMP;

my $ret = Math::GMP->new('123' x 11);
print Math::GMP::get_str_gmp($ret, 10);
__END__
C:\_32\pscrpt\threads>perl gmp2.pl
123123123123123123123123123123123

##</code><code>##

#!perl -slw
use threads;
use Math::GMP;

sub t1 {
    my $mbi = Math::GMP->new($_[0]);
    return $mbi;
}

my $th1 = threads->new(\&t1, '123' x 11);

my $ret1 = $th1->join;

print Math::GMP::get_str_gmp($ret1, 10);