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