sub mt_init_seed {
    my ($self, $seed) = @_;
    my @mt;
    $mt[0] = $seed & 0xffffffff;
    for ( my $i = 1; $i < $N; $i++ ) {
        my $xor = $mt[$i-1]^($mt[$i-1]>>30);
        { use integer;  $mt[$i] = 1812433253 * $xor + $i; $mt[$i] >>= 32 if $mt[$i] > 0xffffffff }
        printf("init %d: %u\n", $i, $mt[$i]);
    }
    $self->{mt} = \@mt;
    $self->{mti} = $N;
}

and running

perl -MMath::Random::MT::Perl -e "Math::Random::MT::Perl->new(1)" > outp