use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $server_endpoint = "http://drughub.cloudapp.net:80/development/api/rest/login";

# set custom HTTP request header fields
my $headers = HTTP::Headers->new;
$headers->header('Content-Type' => 'application/json');
$headers->header('dh_security_code' => '12345');
$headers->header('X-Oc-Merchant-Language' => 'en');
$headers->header('X-Oc-Merchant-Language' => 'en');

# add POST data to HTTP request body
my $post_data = '{"username": "pc1@gmail.com","password": "anandbaba","uid": "uqniue1234rtewwerrrrr","device": "ANDROID","push_token": "ptokenergizerti1234"}';
my $req = HTTP::Request->new('POST',$server_endpoint,$headers,$post_data);
$req->content($post_data);

my $resp = $ua->request($req);
if ($resp->is_success) {
    my $message = $resp->decoded_content;
    print "Received reply: $message\n";
}
else {
    print "HTTP POST error code: ", $resp->code, "\n";
    print "HTTP POST error message: ", $resp->message, "\n";
}

=pod
use HTTP::Request;
use strict;
use LWP::UserAgent;

my $client = LWP::UserAgent->new;
#$req->header("dh_security_code" => "12345");
#$req->header("X-Oc-Merchant-Language" => "en");
my $postdata = 'data={"username": "pc1@gmail.com","password": "anandbaba","uid": "uqniue1234rtewwerrrrr","device": "ANDROID","push_token": "ptokenergizerti1234"}';
my $req = HTTP::Request->new('POST', "http://drughub.cloudapp.net:80/development/api/rest/login",[  "dh_security_code" => "12345","X-Oc-Merchant-Language" => "en"  ],$postdata);
my $resp = $client->request($req);
print $resp->content;

=pod
my $response = $browser->post(
                                "http://drughub.cloudapp.net:80/development/api/rest/login",
                                 [
                                    'body' => '{"username": "pc1@gmail.com","password": "anandbaba","uid": "uqniue1234rtewwerrrrr","device": "ANDROID","push_token": "ptokenergizerti1234"}'c
                                 ],

                             );
$client->addHeader("dh_security_code","12345");
$client->addHeader("X-Oc-Merchant-Language","en");
my $post = 'body={"username": "pc1@gmail.com","password": "anandbaba","uid": "uqniue1234rtewwerrrrr","device": "ANDROID","push_token": "ptokenergizerti1234"}';
$client->POST("http://drughub.cloudapp.net:80/development/api/rest/login",$post,{ "dh_security_code" => "12345","X-Oc-Merchant-Language" => "en" });
print $client->responseCode();
print "\n";
print $client->responseContent();
print "\n";
print $client->responseHeaders();
print "\n";
=cut