John Smith ##

##


  http://johnsmith.com


##

##

#!/usr/bin/perl -w
use strict;
use XML::LibXML;

# The XML Document
my $DOC = XML::LibXML->createDocument( "1.0", "UTF-8" );

# Set the root
my $root = $DOC->createElement('owner');
$DOC->setDocumentElement($root);


sub createOwner {
    if(rand() < 0.5){
	return "John Smith";
    }else{
	my $ret =  XML::LibXML::Element->new('href');
	$ret->appendTextNode('http://johnsmith.com');
	return $ret;
    }
}
my $owner = &createOwner();

if(ref($owner) eq 'XML::LibXML::Element'){
    $root->appendChild($owner);
}else{
    $root->appendTextNode($owner);
}

print $DOC."\n";

##

##


John Smith

##

##


http://johnsmith.com

##

##

#!/usr/bin/perl -w
use strict;
use XML::LibXML;

# The XML Document
my $DOC = XML::LibXML->createDocument( "1.0", "UTF-8" );

# Set the root
my $root = $DOC->createElement('owner');
$DOC->setDocumentElement($root);


sub createOwner {
    if(rand() < 0.5){
	return "John Smith";
    }else{
	my $ret =  XML::LibXML::Element->new('href');
	$ret->appendTextNode('http://johnsmith.com');
	return $ret;
    }
}

my $owner = &createOwner();
$root->appendChild($owner);

print $DOC."\n";