Select Code to Download

Select or download this

  if ($args{user} || $args{password}) { 
      use MIME::Base64;
      $tkxf_auth='Authorization: Basic '.encode_base64($args{user}.':'
+.$args{password},''); 
      }

Select or download this

use MIME::Base64;
my $headers = {
...
                  'Content-Type' => "application/json",
                  Authorization => 'Authorization: Basic '.encode_base
+64($args{user}.':'.$args{password},'')
              };