#!/usr/bin/perl

use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);

my $response = $ua->get("http://www.unab.cl");

  if ($response->is_success) {
    open(FILE, ">fileout.html");
    print FILE $response->content;
    close(FILE);
  } else {
  die;
  }

system("lynx --dump -nonumbers fileout.html > beauty.txt");