use strict;
use warnings;
use HTML::TreeBuilder;
use HTTP::Tiny;
use Data::Dumper qw(Dumper);
use IO::Socket::SSL;
my $link = 'https://www.tudogostoso.com.br/receita/199993-bolo-de-limao.html';
my $response = HTTP::Tiny->new->get($link);
my $html;
print "$response->{status}\t$response->{reason}\n";
print $response->{content};
if ($response->{success}) {
$html = $response->{content};
print "entrou\n";
}
####
403 Forbidden
You have been blocked