use Net::ZooKeeper qw(:node_flags :acls);
my $zkh = Net::ZooKeeper->new('localhost:7000');
$zkh->create('/myzknode, 'active', 'flags' => ZOO_EPHEMERAL, 'acl' => ZOO_OPEN_ACL_UNSAFE) or die("unable to create node /myzknode: " . $zkh->get_error() . "\n");
print "node /myzknode has value: " . $zkh->get('/myzknode') . "\n";