#!/usr/bin/env entity
<object name="foo">
  <window name="holder" width="500" height="100" ondelete="entity:exit">
    <?perl
    sub was_error
    {
       my ($node) = @_;
       $file = $node->attrib("file");
       print ("Node $node had an\n");
       print ("an error loading file $file\n");
       print ("Of course, this is the correct behaviour, so all is well.\n");
    }
    ?>   
    <require file="require2.e" onerror="was_error"/>
    <include file="require2.e" onerror="was_error"/>
  </window>
</object>