#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use HTTP::Tiny;
use LWP::Simple;

#This works fine and I get a success response.

my $response;
$response = HTTP::Tiny->new->get('https://www.ebay.com/itm/132934689370?_trkparms=ispr%3D5&hash=item1ef386625a:g:9aMAAOSwlelcABTQ&amdata=enc%3AAQAGAAACcPYe5NmHp

%252B2JMhMi7yxGiTJkPrKr5t53CooMSQt2orsSHYXPhGXR5uguexJBeHwfgdJ6J58eVuychanjrBuo1JP9tlne3ze02hlK%252FFjf05PjtJOLG7lDM%252BxKs%252FjTmZdZ1gyDgGyRuF45RehkLs7KuyfC

%252B3pAeXVl67sjSxlBP0lLY0PHss4j4iGBGRRzexBnH0dJvoIpRkvSe2QChdnf70KZuXpwlXfeHKeGwiahkPdSbtK38Nw5TolA4S%252BhVaW%252B%252BSa3ZEHC69mI3zuuznYh9xul0wSdTOQ7COk1j30Nh3M8j3IkCdPYVopDo47ntq4GAn1A

%252FnDXrGvvuJW2QEs4MC5%252FeeBSrHNLdzYgczgW1ZdmwkAKpF0NgmaTZKAcBigLXf5Nw0T0KZHMgTQ44Fs0fKZ9zD2Q4%252BV1OwjQmM8n%252FLINdJR3wm1OQNOVtZdmH5BMZPiGDM%252BXvQ0ViSvkFoaMQNjcfMbuyL12QV9IMxlLzejVeHznR5ZLxw19dhNiORLo

%252FhFGZni5I0xs3WBJNiyg%252BnDwKEj0R9s8JQI1Zqo2VUjUBUCUFMDOUNpS%252Bq4a5HSPcaPLeOLVnFm%252BiKZWrbmywfE%252Fan6q64guXwhIUP6GT7oq6qDoTOiPF2eBtLwcN7G5OeR92H0WNfSkLlDm1ux2XETIB9risdL6I

%252FXgDmX55FGDq5QxPGnd2tqbrjVhQR5IXo3YpmZ%252BESpbua3iSjzwLCs0Me%252B512T%252B%252FJ2ebRb2fR8tWhB5EKfM4iNBfDVZbyqLFy7bCnRN2xgC0v27k5Ybntj9YoSr9iybiJRATe8INE4nusY%252FiPxtPYBSoRTzQvMiuA%253D%253D%7Cclp%3A2334524%7Ctkp

%3ABlBMUMjO5uSiXw');

if ($response->{success}) {
     print 'Success ebay url Length: ', length $response->{content}, "\n\n";
	} else {print 'Failed!!\n'}

#This fails and I get a failed response??

$response = get('https://www.therealreal.com/products/women/clothing/jackets/chanel-vintage-1991-evening-jacket-bjjd4');

if ($response->{success}) {
     print 'Success Length: ', length $response->{content};
	} else {print 'Failed therealreal.com url !!\n'}


exit;