GUID goodie

master
Duck Duck Go 2011-08-06 09:27:15 -04:00
parent 9bde9e6448
commit 5f4b2b67e5
1 changed files with 10 additions and 0 deletions

10
guid/goodie.pl Normal file
View File

@ -0,0 +1,10 @@
#!/usr/bin/perl
use strict;
use warnings;
use Data::GUID;
if (my $guid = Data::GUID->new) {
print "{$guid}\n";
}