Select Code to Download

use IO::Socket;

...
my $result;
$sock->send("abc",0) or die "send: $!\n";
defined($sock->recv($result,1,0)) or die "recv: $!\n";

recv: Connection refused