use strict;
use warnings;

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

my $url = "http://perlmonks.org/?displaytype=print;node_id=752400";
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;
__END__