{
  "end": 2,
  "events": [
    {
      "request": {
          "timeout": "55",
        }
      },
      "response": {
        "response_code": 201,
      }
    },
    {
      "request": {
        "method": "POST",
        "parameters": {
          "api_version": "2010-04-01",
        }
      },
      "response": {
        "response_code": 200,
      }
    },
    {
      "request": {
        "method": "POST",
        "parameters": {
          "api_version": "2010-04-01"
        }
      },
      "response": {
        "response_code": 200 #i want to get this
      }
    }
  ]
}

##</code><code>##

my $Msg = JSON::XS->new->decode ($res->content);
my $Getinfo = $Msg->[events]->{response}->{response_code};

print "$Getinfo"; #prints  200