#!/usr/bin/env entity
<button name="include" expand="true" label="It loaded" 
 onbuttonpress="entity:exit"/>
<config name="wierd">
  <child name="blah" storage="barewa">
    <morestuff name="foo"/>
  </child>
<?perl

print ("loading perl..\n");
my $node = enode ("button.include");
$node->attrib ("label" => "It worked! My path is $node");
# Sneaky.. we have to change the name so the second loading can find
# the second button.
$node->attrib ("name" => "foo");

?>

  </config>