#!/usr/bin/env perl
# 	$Id: run.pl,v 1.14 2017/06/17 14:43:57 karl Exp karl $

use strict;
use warnings;
use MyClass;
use Data::Dump;
use HTML::Strip::Whitespace qw(html_strip_whitespace);
use feature qw(say);

my @urls = grep { $_ ne "" } <DATA>;

chomp @urls;

my $object = MyClass->new;

my $result = $object->uagent( \@urls );

# dd $result;

while ( my ( $url, $data ) = each %$result ) {
    say qq($url);
    say $data->{header};
#     my $html;
#     html_strip_whitespace(
#         'source' => \$data->{body},
#         'out'    => \$html
#     );
#     say $html;
}

__DATA__
http://fantasy.xecu.net
http://perlmonks.org
http://stackoverflow.com
http://www.trumptowerny.com
http://www.maralagoclub.com
http://www.sundialservices.com