use strict;
use HTML::Parser ();
use LWP::Simple;
my $url="http://volcano.wr.usgs.gov/hvostatus.php";

my $mypage=get($url);

# Create parser object
my $grab_text = 0;

my $p = HTML::Parser->new( api_version => 3,
                        start_h => [\&kilauea_update_tag_start, "tag"],
                        end_h   => [\&kilauea_update_tag_end,   "tag"],
                        text_h  => [\&textgrabber,              "dtext" ],
                      );

$p->parse($mypage);

sub kilauea_update_tag_start {
    my $tag = shift;
    return unless $tag eq 'kilauea_update';
    $grab_text = 1;
}

sub kilauea_update_tag_end {
    my $tag = shift;
    return unless $tag eq '/kilauea_update';
    $grab_text = 0;
}

sub textgrabber {
    my $text = shift;
    print $text if $grab_text and $text=~/Activity Summary for last 24 hours:/;
}