Select Code to Download

use IO::Socket; 

...
$sock->flush;
sysread($sock, $buf, 2);
print "Bytes 2 = $buf\n";

use IO::Socket; 

...
$new_sock->flush;
syswrite($new_sock, "12", 2);
}