.ユニークなIDナンバーを生成する（システム時間＋プロセスIDの15桁）

my $uniqueid = sprintf("%010d",time()).sprintf("%05d",$$);