use threads;
use warnings;
use Math::GMP;

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

$ret1 = $th1->join();

if(ref($ret1) eq 'Math::GMP') {
  print "\$ret1 => ", ref($ret1), " ", Math::GMP::get_str_gmp($ret1, 10), "\n";
}


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