#!/usr/bin/perl -w

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

$url="where my grades are.html";

$mypage=get($url);

my $q=extirpate_html( $mypage );

open OUT, ">/home/jesse/Desktop/grades/history.txt";

select OUT;

print $q;

close OUT;

open(GRADE, "/home/jesse/Desktop/grades/history.txt");

$. = 0;
do { $history = <GRADE> } until $. == 32 || eof;  #32 is the line with my grade

print $history
close(GRADE);

##</code><code>##

#!/usr/bin/perl -w

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

$url="where my grades are.html";

$mypage=get($url);

my $y=extirpate_html( $mypage );

print $y;