Select Code to Download

my $par_user = "123";
...
        LOG_MSG($par_log_fh,$par_vbse,"n",$par_lglvl,3,"RESTREQUEST","
+REST HTTP request finished");
        return ($http_status_code,$http_decoded);
    }

2016.11.15,14:23:36,NOTICE,RESTGETPORTS,REST get ports start
2016.11.15,14:23:36,NOTICE,RESTREQUEST,REST HTTP request start
2016.11.15,14:23:36,NOTICE,RESTREQUEST,Method: GET
2016.11.15,14:23:36,NOTICE,RESTREQUEST,URL: http://10.3.3.3/Configurat
+ionManager/v1/objects/storages/800000058068/ports

2016.11.15,14:23:36,ERROR,GENERAL,Script died: Can't locate LWP/Authen
+/Session.pm in @INC (@INC contains: G:/development/HiCHperfpkg/bin\..
+\lib\modules G:/development/HiCHperfpkg/bin C:/Perl64/site/li
b C:/Perl64/lib .) at (eval 72) line 2.

print() on closed filehandle $fh at G:/development/HiCHperfpkg/bin\..\
+lib\modules/xxx_LOG.pm line 92.
2016.11.15,14:23:36,WARNING,GENERAL,Script warning: print() on closed 
+filehandle $fh at G:/development/HiCHperfpkg/bin\..\lib\modules/xxx_L
+OG.pm line 92.
...
  "message" : "The Authorization HTTP header, which is required for au
+thentication, is not specified.",
  "solution" : "Specify the necessary value for the Authorization head
+er.",
  "messageId" : "KART30010-E"

2016.11.15,14:38:28,NOTICE,RESTGETSTORAGE,REST get storage start
2016.11.15,14:38:28,NOTICE,RESTREQUEST,REST HTTP request start
...

LWP::Protocol::http::Socket: connect: 10060 at C:/Perl64/lib/LWP/Proto
+col/http.pm line 51.
2016.11.15,14:38:49,ERROR,RESTREQUEST,REST HTTP request finished