#! 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