The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

  $0 -g 個数 -m 平均値 
  ポアソン乱数の生成

 注意: 
   このポアソン乱数生成器は、計算時間が母平均値にほぼ比例する。
   また、内部の計算における浮動小数点がexp(-750)の値はゼロとなるので、
   指定する母平均は600を超えると望ましくない。

 オプション: 
  -g num : 乱数を発生させる個数。基本的に整数を指定。Infも指定可能。
  -m num : 母平均値。未指定なら 1.0 。
  -s num : 乱数シードの設定 (基本的に10桁以内の数) 
  -1 : 乱数シードなどの情報を出力しない。
  -: : 行番号付きで出力する。
  -. str : 出力の区切り文字
  -, str : 出力番号と生成した乱数の間の区切り文字

  --help : この $0 のヘルプメッセージを出す。  perldoc -t $0 | cat でもほぼ同じ。
  --help opt : オプションのみのヘルプを出す。opt以外でも options と先頭が1文字以上一致すれば良い。
 
  開発メモ : 
     * -. と -, はインターフェースとして改良の余地有り。
     * while untilは、他のプログラムにも同じようにしたい。