sub hdl_start{
      my ($p, $elt, %atts) = @_;
      return unless $elt eq 'message';  # We're only interrested in what's said
      $atts{'_str'} = '';
      $message = \%atts; 
  }


##</code><code>##

site => 'http://perlmonks.org'
sitename => 'Perl Monks'