#!/usr/local/groundwork/perl/bin/perl -w
use APR::UUID ();
$uuid = APR::UUID->new->format;
print "agent_id = \"$uuid\"\n";