gistfile1.txt

$VAR1 = bless( { '_content' => '500 Can\'t locate object method "new" via package "LWP::Protocol::https::Socket" ', '_rc' => 500, '_headers' => bless( { 'client-warning' => 'Internal response', 'client-date' => 'Thu, 20 Aug 2009 17:53:38 GMT', 'content-type' => 'text/plain' }, 'HTTP::Headers' ), '_msg' => 'Can\'t locate object method "new" via package "LWP::Protocol::https::Socket"', '_request' => bless( { '_content' => '<complimentary_subscription><duration_quanti ty>7</duration_quantity><duration_units>days< /duration_units><feature_level>365</feature_l evel></complimentary_subscription>', '_uri' => bless( do{\(my $o = 'https://spreedly.com/api/v4/arstechnica-test /subscribers/SpreedlySubs::App::Server/compli mentary_subscriptions.xml')}, 'URI::https' ), '_headers' => bless( { 'user-agent' => 'libwww-perl/5.808', 'content-type' => 'application/xml' }, 'HTTP::Headers' ), '_method' => 'POST' }, 'HTTP::Request' ) }, 'HTTP::Response' );