Select Code to Download

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

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