Funny that it loads there but not with JSON, did you have a "use JSON::XS;" statment already in the program you ran the last time? It seems you have both of them.

kcott had some good debug tips at Re: pl script in webserver. Besides those there could be an error in your input to decode; you could try this.

eval {$respons = JSON::XS->new->decode ($res->content);} ;
print 'json decode error:'.$@ ."\n" if ($@);
[download]

It is quite possible the error involves html encoding of data. This may fix that.

eval {$respons = JSON::XS->new->decode ($res->decoded_content);} ;
print 'json decode error:'.$@ ."\n" if ($@);
[download]

it is quite possible that it is both html and UTF encoding problems. This would fix that

use Encode;
eval {$respons = JSON::XS->new->decode (Encode::decode_utf8($res->deco
+ded_content));}; 
print 'json decode error:'.$@ ."\n" if ($@);
[download]

i tried it. and the code was working at my workstation before taking it to production. i dont expect to have any error in it. its just hosting i think. but even the hosting techs are like what. cant do anything. i would solve it if it was hosted on my space

use JSON::XS;
use HTTP::Request::Common qw(POST);

my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 }, );
$ua->agent("MyApp/0.1")

my $req = HTTP::Request->new(POST => 'https://link');
$req->content_type('application/json');
my $res = $ua->request($req);
$respons = JSON::XS->new->decode ($res->content);
$ju = $respons->{data}->{data};
$ke = $respons->{data}->{data}};


print "Content-type: text/html\n\n";
print <<START_HTML;

#html code


START_HTML
[download]

You do realize there are too many right braces in

$ke = $respons->{data}->{data}};
[download]

thats wat i get