#! /usr/bin/perl
use warnings;
use strict;
use 5.010;
use WWW::Mechanize::GZip;
use HTML::TableExtract qw(tree);
use open ':std', OUT => ':utf8';
use Prompt::Timeout;
use constant TIMEOUT  => 3;
use constant MAXTRIES => 25;

my $site = 'http://motivationgrid.com/50-inspirational-quotes-to-live-by/';
my $mech = 'WWW::Mechanize::GZip'->new;
$mech->get($site);