#!/usr/bin/env perl
$random = int(rand(100)); # 0から99までの範囲で一様分布疑似乱数を発生する
print $random, "\n";