UUIDの取得

　UUIDとは汎用一意識別子(Universally Unique IDentifier)の略です。
　Data::UUIDを使うと簡単です。

use strict;
use Data::UUID;

my $uuid = Data::UUID->new;
print $uuid->create_str(), "\n";