Select Code to Download

use JIRA::REST;
use JSON;
...
    });

print(parse_json ($request));

use REST::Client;
my $client = REST::Client->new();
$client->setHost('https://jira.hostname:PORT/jira/rest');
    $client->request('post', '/auth/1/session', ['{ "username" : "myus
+er", "password" : "mypass" }', undef]);
    print ($client->responseContent());

use LWP;
use LWP::UserAgent;
...
else {
    die $response->status_line;
};

500 Can't connect to jira.hostname:PORT

Bad file descriptor at C:/myperl/perl/vendor/lib/LWP/Protocol/http.pm 
+line 47.
 at jiratest.pl line 28.

sub _new_socket
{
...

    $sock;
}