#!/usr/bin/env entity

<object default-lang="perl">
  <timer interval="90" action="doit"/>
  <perl>
  sub doit
  {
    $node = shift;
    $data = shift;
    print $node
  }
  </perl>
</object>