use strict;
use warnings;

use HTML::Parse;
use HTML::FormatText;
use LWP::Simple;

my $url = "http://www.perlmonks.org";
my $html = get($url);

defined $html or die "Can't fetch HTML from: ",$url;

my $ascii = HTML::FormatText->new->format(parse_html($html));
print $ascii;

##</code><code>##

[TABLE NOT SHOWN][TABLE NOT SHOWN][TABLE NOT SHOWN][TABLE NOT SHOWN]

   PerlMonks lovingly hand-crafted by Tim Vroom.
   PerlMonks went on a couple dates, and then decided to shack up with
   The Perl Foundation.
   Wonderful Web Servers and Bandwidth Generously Provided by pair
   Networks