use JIRA::REST;
use JSON;
my $jira = JIRA::REST->new('https://jira.hostname:PORT/jira', 'myuser', 'mypass');

my $request = $jira->POST("/issue/search", undef, {
	jql=> 'project ~ MYPROJECT and status = closed',
	starAt=> 0,
	maxResults=>1,
	fields=>[asignee],
	});

print(parse_json ($request));

##</code><code>##

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

##</code><code>##

use LWP;
use LWP::UserAgent;
use HTTP::Request;
use JSON;

my $host 		= 	'https://jira.hostname:PORT/jira/rest';
my $loginurl 	        = 	'/auth/1/session';
my %credentials         = 	("username"=>"myuser", "password"=>"mypass");
my $json 		= 	encode_json \%credentials;
my $request 		= 	HTTP::Request->new('POST', $host.=$loginurl);
$request		->	header('Content-Type'=>'application/json');
$request		->	content($json);

my $browser 	        =	LWP::UserAgent->new;
$browser  		->	agent('Mozilla/5.0');
$browser		->	protocols_allowed(['https']);
my $response 	        = 	$browser->request($request);
     
if($response->is_success){
print $response->decoded_content; 
}
else {
    die $response->status_line;
};

##</code><code>##

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.

##</code><code>##

sub _new_socket
{
    my($self, $host, $port, $timeout) = @_;

    # IPv6 literal IP address should be [bracketed] to remove
    # ambiguity between ip address and port number.
    if ( ($host =~ /:/) && ($host !~ /^\[/) ) {
      $host = "[$host]";
    }

    local($^W) = 0;  # IO::Socket::INET can be noisy
    my $sock = $self->socket_class->new(PeerAddr => $host,
					PeerPort => $port,
					LocalAddr => $self->{ua}{local_address},
					Proto    => 'tcp',
					Timeout  => $timeout,
					KeepAlive => !!$self->{ua}{conn_cache},
					SendTE    => 1,
					$self->_extra_sock_opts($host, $port),
				       );

    unless ($sock) {
	# IO::Socket::INET leaves additional error messages in $@
	my $status = "Can't connect to $host:$port";
	if ($@ =~ /\bconnect: (.*)/ ||
	    $@ =~ /\b(Bad hostname)\b/ ||
	    $@ =~ /\b(certificate verify failed)\b/ ||
	    $@ =~ /\b(Crypt-SSLeay can't verify hostnames)\b/
	) {
	    $status .= " ($1)";
	}
	die "$status\n\n$@"; # this is the mentioned "line 47"
    }

    # perl 5.005's IO::Socket does not have the blocking method.
    eval { $sock->blocking(0); };

    $sock;
}