#!/usr/bin/perl
use LWP::UserAgent;


my $ua = LWP::UserAgent->new(
 ssl_opts => { verify_hostname => 0 }
 );
my $req = HTTP::Request->new(GET => 'https://concentra.bbva.com/sonda_BBVA.log');
my $res = $ua->request($req);
if ($res->is_success) {
  print $res->as_string;
}
else {
  print "Failed: ", $res->status_line, "\n";
}