<object name="system arg test">
  <system-args name="args" />

  <perl>
    <![CDATA[
		my $node = enode("system-args.args");

		my @children = $node->children();

		print "Found arguments\n";

		foreach my $child (@children)
		{
		  my $name = $child->attrib("name");
		  print "arg: $name\n";
		}
		exit;
	]]>
  </perl>
</object>
