adding Perl implementation of uuidgen