#!/usr/bin/perl -w use JSON::XS; use CGI::Carp 'fatalsToBrowser'; use HTTP::Request::Common qw(POST); use LWP::UserAgent; use Net::SSL; use CGI; use CGI::Pretty ":standard"; $CGI = CGI->new; my $ua = LWP::UserAgent->new; if (param('Submit') eq 'Submit') { my $req = HTTP::Request->new(GET => 'http://jsonplaceholder.typicode.com/todos/1'); my $res = $ua->request($req); $respons = JSON::XS->new->decode ($res->content); $userid = $respons->{userId}; $id = $respons->{id}; $title = $respons->{title}; $completed = $respons->{completed}; } print "Content-type: text/html\n\n"; print < Untitled Document

userId: $userid

id: $id

title: $title

completed: $completed

 

START_HTML