use strict;
use warnings;
use JSON::XS;
use LWP::Simple "get";

my $url = "http://steamcommunity.com/market/listings/440/Name%20Tag/render/?count=2&start=2";
my $json = get $url;
my $data = decode_json $json;
print $data->{success}, "\n";