#!/usr/bin/perl

use DBI;
use DBD::Pg;
use POSIX;

use HTML::Parse;
use LWP::Simple;
use URI::URL;


while(1) {

    $url     = "http://cnn.com"; 
    $content = get $url;
    $content = parse_html($content)->format;

    print "$content\n";
}