メルセンヌ・ツイスター法による乱数取得

　Math::Random::MTモジュールを使うと簡単です。

# 標準の rand や srand と同じように使えます
use Math::Random::MT qw(srand rand);

srand(1);
foreach (1 .. 10) {
	my $num = rand(10);
	print $num, "\n";
}