#!/usr/bin/perl -T

use CGI::Carp qw(fatalsToBrowser);

use FindBin qw($RealBin);
my $safepath;
BEGIN {
    if ($RealBin =~ m!^(/home/...path.../(test|uk)/www)!) {
        $safepath = "$1/../lib";
    } else {
        die "Illegal use of software - visit www.way-finder.uk to use this site";
    }
}
use lib "$safepath";

use Site::Variables;
use HTTP::Tiny;
use JSON;
use Data::Dumper;

use strict;
use warnings;

my $http = HTTP::Tiny->new;

my $headers = {
    'headers'       => {
        'Authorization' => 'Bearer ' . $Site::Variables::stripe_secret,
    },
    'agent'         => 'Wayfinder/v3.0',
};

my $sub_id = 'sub_xxxxxxxxxxx';

# This line is the culprit...
my $res = $http->post_form("https://api.stripe.com/v1/subscriptions/$sub_id", {}, $headers);
my $payload = decode_json($res->{'content'});

my $subscription = {
        'items[0][id]'                 => 'x',
        'items[0][price]'              => 'some price',
};

my $response = $http->post_form("https://api.stripe.com/v1/subscriptions/$sub_id", $subscription, $headers);

print "Content-type: text/plain\n\n";
print Dumper $response;