threads::shared - sharing variables

Setting up the variables to be shared:

    my $g_remote_ip : shared   = '';
    my $g_remote_port : shared = 0;