Yet Another CPAN Grep

Business-OnlinePayment-BitPay-KeyUtils ( B/BI/BITPAY/Business-OnlinePayment-BitPay-KeyUtils-2.0.1.tar.gz, BITPAY, 2015; MetaCPAN )

Business-OnlinePayment-BitPay-KeyUtils/test.pl ( view source; MetaCPAN )

se Test::More;
use LWP::UserAgent;
use HTTP::Request;
use LWP::Protocol::https;
use JSON;
use JSON::Parse 'parse_json';
use IO::Socket::SSL;

my $const_sin = "TeyN4LPrXiG5t2yuSamKqP3ynVk3F52iHrX";
my

  $request->header('content-type' => 'application/json');
  my %content = ('id'=>$sin);
  my $jsonc = encode_json \%content;
  $request->content($jsonc);
  my $ua = LWP::UserAgent->new;
  my $response