Select Code to Download

sub init() {
 my ($self)=@_;
...
      }
 }
}

<root>
<car>
...
<make>sbarro</make>
</car>
</root>

<root>
<car>
<make>audi</make>
</car>
</root>