Select Code to Download

        OutputStream stream = s.getOutputStream();
        if (stream != null)
        {
...
                res = true;
            }
        }

use strict;
use warnings;
use IO::Socket;
...
my $msg_in = <$socket>;
print "->$msg_in\n";
$socket->close or warn $@;