my $http = HTTP::Tiny->new;
my $resp = $http->get($url);
my $tree = HTML::TreeBuilder->new;
$tree->parse($resp->{'content'});

my @paragraph = $tree->look_down('_tag', 'p');

print "Content-type: text/plain\n\n";
foreach my $line(@paragraph) {
    print $line->as_trimmed_text . "\n";
}