curl -i -k -H "Accept:application/*+xml;version=1.5" -u "username@system:password" -X post https://something/api/sessions

##</code><code>##

HTTP/1.1 200 OK
Date: Mon, 17 Jun 2013 08:19:59 GMT
x-authorization: qQHvPTvOa49l8EyuWSwmoDzMn8nVHWDbFUP+tC9RyMk=
Set-Cookie: token=qQHvPTvOa49l8EyuWSwmoDzMn8nVHWDbFUP+tC9RyMk=; Secure; Path=/
Content-Type: application/session+xml;version=1.5
Date: Mon, 17 Jun 2013 08:20:00 GMT
Content-Length: 1055

##</code><code>##

#!usr/bin/perl -w
use strict;
use REST::Client;
use MIME::Base64;

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;  ### to ignore the SSL

my $username	= 'username@system';
my $password	= 'password';
my $url		= "https://something/api/sessions";

my $client = REST::Client->new();

my $headers = {
			"Accept"		=> "application/*+xml;version=1.5",
			"Authorization"	=> 'Basic ' . encode_base64($username . ':' . $password),
		};

$client->POST($url,$headers);
print $client->responseContent();