my $xor = $mt[$i-1]^($mt[$i-1]>>30);
        { use integer;  $mt[$i] = 1812433253 * $xor + $i; $mt[$i] >>= 
+32 if $mt[$i] > 0xffffffff }
[download]

It seems to work (at least this part), if you replace

    $mt[$i] >>= 32 if $mt[$i] > 0xffffffff;
[download]

with

    $mt[$i] &= 0xffffffff;
[download]

in mt_init_seed(), i.e. simply truncate the higher bits. In any case I then get the same init number sequence as with the Math::Random::MT C version.

Update: and if I replace the other 3 occurrences of the same pattern in mt_setup_array(), too, it does in fact pass all five tests...