Select Code to Download

#!/usr/bin/env perl

...
        }
    });
}

#!/usr/bin/env perl

...
    print $client "$_\n";
    sleep 1;
}

$ pm_asynch_sock_server_tk.pl &

$ pm_asynch_sock_client.pl &