#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
my $uuid_str;
if (@ARGV) {
$uuid_str = $ARGV[0];
} else {
eval {
require Data::UUID;
my $ug = new Data::UUID;
$uuid_str = $ug->create_str;
};
if ($@) {
$uuid_str = `uuidgen`;
$uuid_str =~ s/\r?\n?$//;
}
}
my @stuff = split /-/, $uuid_str;
print "Content-type: text/html\n\n";
print "<html><head><title>GUID Generator</title></head><body>";
print '<h2><font face="verdana, arial">GUID Generator</font></h2>';
print '<font face="new courier, courier">';
print "{$uuid_str}</font><br>";
print '<h6><font face="verdana, arial"><a href="http://extensions.roachfiend.com/cgi-bin/guid.pl">Get another GUID</a></font></h6>';
print '<h6><font face="verdana, arial"><a href="http://extensions.roachfiend.com/guid.txt">View the source of this script</a></font></h6>';
print "</body></html>";
exit;
參考：http://extensions.roachfiend.com/cgi-bin/guid.pl