#!/usr/bin/perl

use LWP::Simple;
use HTML::Obliterate qw(extirpate_html);

$url="http://volcano.wr.usgs.gov/hvostatus.php";

$mypage=get($url);

my $q=extirpate_html( $mypage );

open OUT, ">/home/jesse/Desktop/Programs/vol.txt" or die $!;

select OUT;

print $q;

close OUT;

open IN, "</home/jesse/Desktop/Programs/ups.txt" or die $!;
select IN;

foreach $line (<IN>) {
        if ($line =~ /^Last 24 hours/) {
            print $line;
        }
}
close IN;