Select Code to Download

  sub client_socket_create()
  {
...
                print "$socket \n";
return $socket;
}

sub client_main($)
{
...
print "$socket \n";
# some processing #
}