#! perl -slw
use strict;
use threads;

sub t {
    require Math::Pari;
    eval {
        use Math::BigInt;
    };
    my $mbi = Math::BigInt->new( $_[ 0 ] );
    $mbi /= 11;
    return $mbi;
}

print threads->create( \&t, '123' x 11 )->join;

__END__
c:\test>t-pari
11193011193011193011193011193011

##</code><code>##

#! perl -slw
use strict;
use threads;

sub t {
#    require Math::Pari;
    eval {
        use Math::BigInt;
    };
    my $mbi = Math::BigInt->new( $_[ 0 ] );
    $mbi /= 11;
    return $mbi;
}

print threads->create( \&t, '123' x 11 )->join;
print threads->create( \&t, '123' x 21 )->join;

__END__
c:\test>t-pari
11193011193011193011193011193011
11193011193011193011193011193011193011193011193011193011193011

##</code><code>##

#! perl -slw
use strict;
use threads;

sub t {
    require Math::Pari;
    eval {
        use Math::BigInt;
    };
    my $mbi = Math::BigInt->new( $_[ 0 ] );
    $mbi /= 11;
    return $mbi;
}

print threads->create( \&t, '123' x 11 )->join;
print threads->create( \&t, '123' x 21 )->join;

__END__
c:\test>t-pari
11193011193011193011193011193011
Terminating on signal SIGINT(2)

##</code><code>##

 perl Makefile.PL static
 make perl
 make test_static