Select Code to Download

sub http_thread
{
...
  }

}

$hThread = threads->create( {'void' => 1}, \&http_thread );

package auth;
use Devel::Peek;
...
    Dump ($self);

}

  use SOAP::Lite +autodispatch =>
        proxy => 'https://server:8001/';
...
$obj->temp();

exit;