#Perl data structure containing the values we need to pass over to ]po[.

 my $rt_ticket = {
     company_name => 'Test',
     #ticket => $ticket,
     #requestor => $email_address,
     #domain => $email_domain,
     #SLA => $SLA,
 };    

#Creation of JSON object and encoding of our Perl data into a JSON string.

 my $json = JSON->new();
 my $ticket_json = $json->encode($rt_ticket);

#POST request containing our JSON string.

 my $url = 'http://<server_ip>/intranet-rest/im_company';
 my $par_user = '<username>';
 my $par_pass = '<password>';

    my $ua =  LWP::UserAgent->new();        
    require HTTP::Request;

        my $req = HTTP::Request->new( POST=> $url );
           $req->header('Content-Type' => 'application/json');
           $req->content( $ticket_json );
           $req->authorization_basic( $par_user,$par_pass );  

    my $result = $ua->request( $req );

        if ($result->is_success) {
         $RT::Logger->info('OK');
      } else {
         $RT::Logger->warning($result->status_line);