GUID goodie
parent
9bde9e6448
commit
5f4b2b67e5
|
@ -0,0 +1,10 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Data::GUID;
|
||||
|
||||
if (my $guid = Data::GUID->new) {
|
||||
print "{$guid}\n";
|
||||
}
|
Loading…
Reference in New Issue